Даны 2 числа x и y Меньшее из этих чисел, замените их полученной суммой

Question

Информатика

Меланьюшка

7 августа, 12:58

Даны 2 числа x и y Меньшее из этих чисел, замените их полученной суммой

+1

Ответы (1)

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

Ермилий · Answer 1

Var x, y:integer;

begin

writeln ('Введите X') ;

read (x) ;

writeln ('Введите Y') ;

read (y) ;

if x>y then writeln ('X=', x,',','Y=', X+Y)

else writeln ('X=', X+Y,',','Y=', Y) ;

end.