Дано два числа x, y. ЕСли x>у, то найти сумму этих чисел, иначе произведение

Question

Информатика

Егия

1 августа, 00:32

Дано два числа x, y. ЕСли x>у, то найти сумму этих чисел, иначе произведение

+1

Ответы (1)

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

Нарспи · Answer 1

var x, y:real;

begin

write ('Введите x = ') ;

read (x) ;

write ('Введите y = ') ;

read (y) ;

if x>y then writeln ('Сумма чисел = ', x+y)

else writeln ('Произведение чисел = ', x*y) ;

end.