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

Question

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

Comments

и каким образом? может наоборот? пк загадывает,а пользователь отгадывает?

---

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

Answer 1

Var a,b: integer;   begin randomize; a := random(100);   while a <> b do begin write('Введи число: '); readln(b); if b > a then writeln('Много') else if b < a then writeln('Мало') else writeln('Угадал'); end;   readln end.

---