Система Паскаль. Составить программку поиска наибольших из 2-ух введенных чисел A

Система Паскаль. Составить программку поиска наибольших из 2-ух введенных чисел A и B. Вводить числа:a gt; b, alt; b, a=b. Вывести итог с комментарием

Задать свой вопрос
1 ответ
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var a,b:real;
  Write('Введите два числа через пробел: ');
  Read(a,b);
  if agt;b then Writeln(a,'gt;',b,', максимум равен ',a)
  else
    if alt;b then Writeln(a,'lt;',b,', максимум равен ',b)
    else Writeln('Веденные числа одинаковы')
end.

Тестовые решения:
Введите два числа через пробел: 36.4 32.15
36.4gt;32.15, максимум равен 36.4

Введите два числа через пробел: -46.46 -18.54
-46.46lt;-18.54, максимум равен -18.54

Введите два числа через пробел: 38.0 38
Веденные числа одинаковы
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт