Меню сайта

Задача №6

Дано 2 целых числa. Вывести большее из них.


Program if_6-

Var a,b:integer-

Begin

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

Readln(a)-

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

Readln(b)-

If a&gt-b then Writeln(‘Наибольшее ‘,a) else Writeln(‘Наибольшее ‘,b)

Readln-

End.

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

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