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 или более попытки ?Не закрывая консоль
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Program faceyourseif
va
x: integer
k: integer
attempts: integer;
begi
Randomize
x := Random(100)
writeln('Компьютер загадал число от 0 до 100')
writeln('Попробуйте его угадать');
attempts := 0
if k > x therepea
begi
writeln('Введите число')
read(k);
writeln('Не угадали! Загаданное число меньше'
else if k < x the
writeln('Не угадали! Загаданное число больше'
els
writeln('Поздравляю, вы угадали!')
attempts := attempts + 1
end;
until (attempts >= 3) or (k = x);
writeln('Количество попыток:', attempts)
end.