Меню сайта

Задача №7

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


Program if_7-

Var a,b:integer-

Begin

Writeln(‘Введите число’)-

Readln(a)-

Writeln(‘Введите число’)-

Readln(b)-

If a&lt-b then Writeln(‘Наименьшее 1-е’) else Writeln(‘Наименьшее 2-е ‘)

Readln-

End.

Категория: Разветвляющиеся программы | Дата: 02.01.13

Меню раздела
Блок