Компьютер загадывает число из диапазона от 1 до 100 и предложил пользовтелю его отгадать игра продолжается до тех пор пока число не будет отгаданным составте программу

Question

Компьютер загадывает число из диапазона от 1 до 100 и предложил пользовтелю его отгадать игра продолжается до тех пор пока число не будет отгаданным составте программу

Гость

Ответ(ы) на вопрос:

Accepted Answer

var i, j, k : integer; begin i := 1 + trunc (random (100)); j := 0; repeat writeln ('Введите число'); read (k); inc (j); until k = i; writeln ('Верно. Отгаданно с ', j, ' попытки. '); end.