Решаем задачи Абрамян на Паскале. If 7

If7. Даны два числа. Вывести порядковый номер меньшего из них.

Решение:

1

2

3

4

5

6

7

8

9

10

program If7;

Var R1,R2:Real;

begin

Write('Введите перовое число: ');

Readln(R1);

Write('Введите второе число: ');

Readln(R2);

if R1 < R2 then writeln("1")

else writeln("2");

end.

Другие задачи из раздела If можно посмотреть здесь.

Комментарии:

Добавить комментарий Отменить ответ

➤