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

Question

Информатика

Никитий

2 декабря, 04:16

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

+1

Ответы (2)

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

Костяха · Answer 1

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.

Мика · Answer 2

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.