Даны два числа. Отыскать разность большего числа и наименьшего.

Даны два числа. Отыскать разность большего числа и меньшего.

Задать свой вопрос
Никита Тарапатин
а какие числа?
Арина Двигубская
люббые
Тортунов Диман
паскаль абц
Виктория
228
Валера
харбас тусовки
Кирилл
Учителю по инфе раскажу
1 ответ

var

 A, B: Integer;

begin

   Write('Введите 2 целых числа: ');

   Readln(A, B);

   Writeln ('Разность большего и наименьшего = ' + IntToStr (Абс (A - B)));

end;

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт