Дана программа нахождения меньшего из двух чисел.

Question

Информатика

Рубен

16 сентября, 11:09

Дана программа нахождения меньшего из двух чисел.

+3

Ответы (1)

Знаете ответ на вопрос?

Олимпиодора · Answer 1

var a, b:integer;

procedure Poisk (a, b:integer) ;

begin

if a > b then

writeln ('Меньшее число ', b) ;

if a=b then

writeln ('Равны') ;

if a < b then

writeln ('Меньшее число ', a) ;

end;

begin

writeln ('Введите числа') ;

readln (a, b) ;

Poisk (a, b) ;

end.