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

Question

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

Comments

Это язык Pascal

---

да

---

почему a=b

---

ок

---

ща

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.

Comments

все

---

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

---

и?

---

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

Answer 2

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

Comments

спасибо

---

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

---

ок

---

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

---

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

---

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

Енто твой начальный код...

---

ну и

---

Так смысл было мне переписывать по новой =) Просто надо вывести 1 или 2;)

---

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

---

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