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

Question

Информатика

Люция

4 октября, 17:49

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

+5

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