Pascal ABC: Вводятся X и Y. Заменить большее из этих чисел разностью большего и меньшего.

Ответы:

ЕГОРКА БАРЫШНИКОВ

08-12-2013 20:10

program test;var x, y : integer;begin Write("Введите x:");Readln(x);Write("Введите y:);Readln(y);if (x > y) thenbegin x := x - y;Writeln(x);endelsebeginy := y -x;Writeln(y);end;end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя НАЗАР КАРПОВ

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Pascal ABC: Вводятся X и Y. Заменить большее из этих чисел разностью большего и меньшего.» от пользователя НАЗАР КАРПОВ в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!