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

Question

Информатика

Ортай

29 сентября, 15:33

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

+4

Ответы (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.