Задать вопрос
24 января, 12:03

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

+2
Ответы (1)
  1. 24 января, 15:55
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Program faceyourseif; var x:integer; k:integer; begin x : = Random (100) ; writeln ('Компьер загадал число от 0 до 100') ; writeln ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы