Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.