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

Question

Информатика

Нимфодора

23 июня, 21:18

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

+4

Ответы (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.