Для четырех произвольных чисел, введенных с клавиатуры, - вопрос №2065097 от ukjlobfnjh 21.07.2020 00:40

Question

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

ukjlobfnjh · Answer

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 ) and (a*b*c*d 0) then writeln(a, ,b, ,c, ,d)else writeln((a+b+c+d)/2);end....