Надо найти свой возраст в условном операторе?

Question

Надо найти свой возраст в условном операторе?

Comments

типа угадайки что ли?

---

выводить до тех пор пока не окажется верным

---

мне 13 кря

---

точнее вводить

---

да

Answer 1

Var  c1, c2: integer; 

begin     
c2 := Random(10) + 1; 
repeat   
writeln('Угадай цифру от 1 до 10');   
readln(c1);
if c1 <> c2 then writeln('Нет');   
if c1 = c2 then writeln('Да, ', c2); 
until c1 = c2;  
end.

Comments

как-то так

---

причем как угадывать вы собрались возраст ума не приложу

---

ладно без условного оператора можете