компьютер загадывает число из диапазона от 1 до 100 и предложил пользовтелю его отгадать игра продолжается до тех пор пока число не будет отгаданным составте программу
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад