Паскаль: с Для четырех произвольных чисел, введенных с клавиатуры, выведите на…

Question

41

Паскаль: с Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если произведение этих чисел положительно, то выведите утроенное значение каждого числа. Если сумма первого и третьего чисел отрицательна, то выведите эти два числа и их сумму. Если выполняются одновременно два перечисленных выше условия, то выведите четыре числа без изменения. Иначе, выведите сумму этих четырех чисел, уменьшенную в два раза. Составьте соответствующие отладочные примеры и проверьте работу каждой программы.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

freenik · Accepted Answer

37

freenik

01 апреля 2023

program zadacha_1; var n1,n2,n3,n4: integer //Здесь храним значение 4 чиселbeginwriteln ('Введи 4 числа'); readln (n1,n2,n3,n4); if (n1*n2*n3*n4) >0 then writeln (n1*3,',n2*3,',n3*3,',n4*4) else if (n1+n3) <0 then writeln (n1,',n3,' их сумма равна ',n1+n3) else if (n1*n2*n3*n4) >0 and (n1+n3) <0) then writeln (n1,',n2,',n3,',n4) else writeln (n1+n2+n3+n4) div 2); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: