Введите с клавиатуры три числа если все числа отрицательны и не равны между собой то замените числа их квадратами и выведете результат на экран если все числа равны 0 то сделайте их соответственно равными 5, 20,15 и выведете результат. Иначе найдите и выведете сумму чисел. (в паскале)

Question

Информатика

Вовуся

2 декабря, 06:41

Введите с клавиатуры три числа если все числа отрицательны и не равны между собой то замените числа их квадратами и выведете результат на экран если все числа равны 0 то сделайте их соответственно равными 5, 20,15 и выведете результат. Иначе найдите и выведете сумму чисел. (в паскале)

+1

Ответы (1)

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

Антя · Answer 1

Uses crt;

var x, y, z:real;

begin

readln (x, y, z) ;

if (x<0) and (y<0) and (z<0) and (xy) and (xz) and (yz) then

write (x*x,', ', y*y,', ', z*z)

else

if (x=0) and (y=0) and (z=0) then write ('5, 20, 15')

else write (x+y+z) ;

end.