Program faceyourseif;varx:integer;k:integer;beginx := Random(100);writeln('Компьер загадал число от 0 до 100');writeln('Попробуйте его угадать');repeat begin writeln('Введите число');read(k);if k > x thenwriteln('Не угадали! Загаданное число меньше');if k < x thenwriteln('Не угадали! Загаданное число больше');if k = x thenwriteln('Поздравляю,вы угадали!end;until false;end.Как сделать,чтоб было 3 или более попытки ?Не закрывая консоль
Program faceyourseif;varx:integer;k:integer;beginx := Random(100);writeln('Компьер загадал число от 0 до 100');writeln('Попробуйте его угадать');repeat begin writeln('Введите число');read(k);if k > x thenwriteln('Не угадали! Загаданное число меньше');if k < x thenwriteln('Не угадали! Загаданное число больше');if k = x thenwriteln('Поздравляю,вы угадали!end;until false;end.Как сделать,чтоб было 3 или более попытки ?Не закрывая консоль
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Program faceyourseif;
var
x: integer;
k: integer;
attempts: integer;
begin
Randomize;
x := Random(100);
writeln('Компьютер загадал число от 0 до 100');
writeln('Попробуйте его угадать');
attempts := 0;
if k > x thenrepeat
begin
writeln('Введите число');
read(k);
writeln('Не угадали! Загаданное число меньше')
else if k < x then
writeln('Не угадали! Загаданное число больше')
else
writeln('Поздравляю, вы угадали!');
attempts := attempts + 1;
end;
until (attempts >= 3) or (k = x);
writeln('Количество попыток:', attempts);
end.