Pascal ABC: Вводятся X и Y. Заменить большее из этих чисел разностью большего и меньшего.
Pascal ABC: Вводятся X и Y. Заменить большее из этих чисел разностью большего и
меньшего.
Гость
Ответ(ы) на вопрос:
Гостьprogram test;
var
x, y : integer;
begin
Write("Введите x:");
Readln(x);
Write("Введите y:);
Readln(y);
if (x > y) then
begin
x := x - y;
Writeln(x);
end
else
begin
y := y -x;
Writeln(y);
end;
end.
Не нашли ответ?
Похожие вопросы