Program faceyourseif;varx:integer;k:integer;beginx : = Random (100) ;writeln ('Компьер загадал число от 0 до 100') ;writeln ('Попробуйте его угадать') ;repeatbeginwriteln ('Введите число') ;read (k) ;if k > x thenwriteln ('Не угадали! Загаданное число меньше') ;if k < x thenwriteln ('Не угадали! Загаданное число больше') ;if k = x thenwriteln ('Поздравляю, вы угадали!end;until false;end.Как сделать, чтоб было 3 или более попытки? Не закрывая консоль

Ответы (1)

Всебор 23.03.2024 0
Program faceyourseif;var x, k, i:integer;g:boolean;begin;x : = Random (100) ;writeln (x) ;writeln ('Компьер загадал число от 0 до 100') ;writeln ('Попробуйте его угадать') ;repeatwriteln ('Введите число') ;read (k) ;if k > x thenwriteln ('Не угадали! Загаданное число меньше') ;if k < x thenwriteln ('Не угадали! Загаданное число больше') ;if k = x then begin;writeln ('Поздравляю, вы угадали!') ;g:=true;end;i:=i+1;until g or (i=3) ;end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: