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

gulya101 gulya101    3   19.05.2019 00:00    0

Ответы
Evelina300606 Evelina300606  12.06.2020 05:30

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика