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 - счётчик попыток.
Условный оператор для корректировки угадывания.
Если все попытки исчерпаны, вывод предложения попробовать ещё раз.
Program zadumai;
Var
a, k, i: integer;
Begin
a:= random (101)-50;
for i := 1 to 10 do
begin
write ('Попробуйте угадать задуманное число. Попытка №', i, ': ');
readln (k);
if a=k then
begin
writeln ('Вам удалось!');
exit;
end
else
begin
end;
if a>k then writeln ('Задуманное число больше. Попробуйте еще раз.')
else writeln ('Задуманное число меньше. Попробуйте еще раз.');
end;
write (a,'-задуманное число. Попробйуйте еще раз!')
end.