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

Question

Информатика

Захария

11 ноября, 16:52

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

+3

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