Question

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 или более попытки ? не закрывая консоль

Answer 1

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