В компьютер вводятся два числа. если первое больше второго то вычтслить их сумму иначе произведение после этого компьютер должен напечатать текст задача решена

Question

Информатика

Ираида

8 мая, 20:55

В компьютер вводятся два числа. если первое больше второго то вычтслить их сумму иначе произведение после этого компьютер должен напечатать текст задача решена

+2

Ответы (1)

Знаете ответ?

Яков · Answer 1

Var x, y: integer;

begin write ('Введите два целых числа, разделяя их пробелом: ') ;

readln (x, y) ;

if x>y then

writeln ('Сумма ', x,' и ', y,' равна ', x+y)

else

writeln ('Произведение ', x,' и ', y,' равно ', x*y) ;

writeln ('Задача решена') ;

end.