Размещено 5 лет назад по предмету
Информатика
от учебник3698
program faceyourseif; var x:integer; k:integer; begin x := Random(100); writeln('Компьер загадал число от 0 до 100'); writeln('Попробуйте его угадать'); repeat begin writeln('Введите число'); read(k); if k > x then writeln('Не угадали! Загаданное число меньше'); if k < x then writeln('Не угадали! Загаданное число больше'); if k = x then writeln('Поздравляю,вы угадали! end; until false; end.
Как сделать,чтоб было 3 или более попытки ?Не закрывая консоль