Вpascalabc пользователь загадывает число а компьютер - вопрос №8763940 от KaterinaaA2003 04.01.2020 06:29

Question

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

KaterinaaA2003 · Answer

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.
Вpascalabc пользователь загадывает число а компьютер должен угадать.

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