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

Категория: Delphi/Pascal

2011-12-08 23:45:51

code: #pascal

Program If7;
Var
A,B:Integer;
Begin
WriteLn('Введите числa A и B: ');
ReadLn(A,B);
If A < B Then
WriteLn(1)
Else
WriteLn(2);
End.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Sample Code