program ugadai;
var a,b,k:integer;
begin
b:=random(101)-50;
writeln('Попробуйте угадать число от -50 до 50 за 10 попыток');
writeln;
k:=1;
repeat
write('Попытка ',k,'. Введи число: ');
readln(a);
if a>b then writeln('Загаданное число меньше!')
else if a<b then writeln('Загаданное число больше!')
else if a=b then
begin
writeln;
writeln('Вам удалось!');
k:=13;
end;
k:=k+1
until k>10;
if k=11 then
begin
writeln;
writeln('Попробуйте еще раз.')
end
end.
Объяснение:
Загадываем число (random)
Цикл с пост условием, k - счётчик попыток.
Условный оператор для корректировки угадывания.
Если все попытки исчерпаны, вывод предложения попробовать ещё раз.
