Хыиуду писал(а):Хыиуду, вроде опытный программист, а такие нелепые ошибки.
Никто не застрахован от ошибок, даже такой опытный программист, как Хыиуду. Но бывают такие неблагоприятные деньки, когда голова совсем "не в ту степь" думает-)]
uses crt;
var c,x,attempt: integer;{с-введённое число; x-загаданное; attempt - кол-во попыток}
begin {начать}
clrscr;
randomize; {инициализируем генератор случайных чисел}
x:=random(10); {загаданное число от 0 до 9}
attempt:=1; {первая попытка}
repeat {повторяем...}
writeln('Попытка №',attempt);
write('Введите число: '); readln(c); {вводим число}
if (c>9) or (c<0) then begin
writeln('Будь внимательнее!'); {контролируем выход за пределы интервала}
continue
end;
if c>x then writeln('Перебор!') else if c<x then writeln('Слишком мало...');
{если введенное число больше загаданного, написать "Перебор", иначе, "Слишком мало..."}
inc(attempt); {увеличиваем число использованных попыток}
until (c=x) or (attempt>3); {завершаем цикл, если загаданное число равно введённому, или если использовано больше трёх попыток}
If c=x then write('Поздравляем! Вы угадали число с ',attempt,' попытки!')
else
write('Вы проиграли...');
{если загаданное число равно введённому, тогда написать "Поздравляем...", иначе, "Вы проиграли..."}
readkey; {пауза}
end.
[/code]