Составьте программу для определения наименьшего из 2-х целых чисел.

Question

Информатика

Гуня

5 апреля, 17:15

Составьте программу для определения наименьшего из 2-х целых чисел.

+5

Ответы (1)

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

Николаич · Answer 1

Var a, b:integer;

beginwriteln ('Введите 1 число') ;

readln (a) ;

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

readln (b) ;

if a>=b then writeln ('Наименьшее число равняется ', b)

else writeln ('Наименьшее число равняется ', a) ;

end.