Предмет: Информатика,
автор: ШохОЧКИН
компьютер загадывает число из диапазона от 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.
Интересные вопросы
Предмет: Английский язык,
автор: gulzadamaatkabylova
Предмет: Қазақ тiлi,
автор: Ar1q
Предмет: Математика,
автор: majguldarmenova
Предмет: Биология,
автор: frosyaaa