Question

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

Answer 1

program qq;
var a,b:integer;
begin
  writeln('Введите два числа');
  readln(a,b);
  if a=b
  then writeln('Числа равны')
  else if a<b
         then writeln(1)
         else writeln(2);
end.

Answer 2

Там ж порядковый номер просят

Answer 3

и?

Answer 4

ну дак ве впорядке

Answer 5

все

Answer 6

program p1;
var a,b:integer;
begin  writeln('Введите два числа');
readln(a,b);
if a=b
then writeln('Числа равны')
else if a<b
then writeln(1)
else writeln(2);end.

Answer 7

ну дак я переделал еще до того как ты ответил

Answer 8

ну когда ты писал я переделал

Answer 9

ок

Answer 10

завтра олимпиада по инфе а я хернёй страдаю

Answer 11

пошол искать нормальные задачи