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

Question

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

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)</p>

else if ((n1*n2*n3*n4)>0 and (n1+n3)<0) then writeln(n1,' ',n2,' ',n3,' ',n4)</p>

else writeln((n1+n2+n3+n4)div 2);

end.