Введите 2 числа a, b выведите на экран порядковый номер меньшего из них

Question

Информатика

Эсфирь

15 апреля, 23:51

Введите 2 числа a, b выведите на экран порядковый номер меньшего из них

+2

Ответы (2)

Знаете ответ?

Карина · Answer 1

Program qq;

var a, b:integer;

begin

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

readln (a, b) ;

if a=b

then writeln ('Числа равны')

else if a
then writeln (1)

else writeln (2) ;

end.

Толяна · Answer 2

Program p1;

var a, b:integer;

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

readln (a, b) ;

if a=b

then writeln ('Числа равны')

else if a
then writeln (1)

else writeln (2) ; end.