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

Question

Информатика

Алека

19 мая, 09:05

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

+2

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