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

Ответы

Ответ дал: Аноним
0
var x,y:integer;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
if x<y then writeln (x+y,' ',y) else 
writeln(x,' ',x+y);
readln;
end.
Похожие вопросы