Решить по программе Паскаля, полное решения: Ввести 2 числа

Задание:

Решить по программе Паскаля, полное решения: Ввести 2 числа. Вычесть из большого меньше. If A>B thenc: =А-В

Решение:

var a,b: integer; Begin read (a,b); if a>b then a: =a-b else a: =b-a; writeln (a); End. Альтернатива может быть просто по модулю var a,b: integer; Begin read (a,b); writeln (abs (a-b); End.

Знаете другой ответ?

Отправить свой ответ