Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.