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

Question

Информатика

Розина

17 сентября, 11:27

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

+1

Ответы (1)

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

Петюша · Answer 1

program zadacha_1;

var n1, n2, n3, n4:integer / / Здесь храним значение 4 чисел

begin

writeln ('Введи 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.