Даны два числа X и Y. Если их произведение больше 20, то найти их сумму, иначе найти их разность. Вывести результат.

Question

Мишуня

14 апреля, 06:39

+4

Ответы (1)

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

Лидоня · Answer 1

Var x, y, z:real;

begin

readln (x) ;

readln (y) ;

if x*y>20 then z:=x+y else z:=x-y;

writeln (z) ;

end.