var i,n,d:byte;
Begin
Randomize;
d:= random (9);
for i:= 1 to 3 do
begin
Write ('Угадай число '); Readln (n);
if n = d then break;
if n < d then
Writeln ('Загаданное больше!!!')
else
if n > d then
Writeln ('Загаданное меньше!!!')
end;
if n<>d then
Write ('Не угадали число',d,'!') else
Writeln ('Вы угадали с ',i,'-й попытки');
readln;
end.
Сообщение отредактировано: volvo -