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

Если произведение этих чисел положительно, то выведите утроенное значение каждого числа.

Если сумма первого и третьего чисел отрицательна, то выведите эти два числа и их сумму.

Если выполняются одновременно два перечисленных выше условия, то выведите четыре числа без изменения.

Иначе, выведите сумму этих четырех чисел, уменьшенную в два раза.

Составьте соответствующие отладочные примеры и проверьте работу каждой программы.

Question

Информатика

Евмения

23 октября, 21:58

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

Если произведение этих чисел положительно, то выведите утроенное значение каждого числа.

Если сумма первого и третьего чисел отрицательна, то выведите эти два числа и их сумму.

Если выполняются одновременно два перечисленных выше условия, то выведите четыре числа без изменения.

Иначе, выведите сумму этих четырех чисел, уменьшенную в два раза.

Составьте соответствующие отладочные примеры и проверьте работу каждой программы.

+1

Ответы (1)

Знаете ответ на вопрос?

Лилюша · Answer 1

Var a, b, c, d, a1, b1, c1, d1:real;

Begin

Write ('Введите 4 числа a, b, c, d: ') ; readln (a, b, c, d) ;

if (a*b*c*d > 0) then begin

a1:=a*3; b1:=b*3; c1:=c*3; d1:=d*3;

writeln ('a*3=', a1,' b*3=', b1,'c*3=', c1,'d*3=', d1) ;

end;

if (a+c < 0) then writeln ('a+c=', a+c) ;

if (a+c 0) then writeln (a,' ', b,' ', c,' ', d)

else writeln ((a+b+c+d) / 2) ;

end.