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

Question

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

Answer 1

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.