Компьютер загадывает число из диапазона от 1 до - вопрос №14965231100 от sofaTV 09.01.2020 04:54

Question

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

sofaTV · 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.