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

Question

Информатика

Джиар

2 августа, 10:17

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

+3

Ответы (1)

Знаете ответ на вопрос?

Малей · 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.