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.