Игра "Угадай число" (2) Опции

[Katolisa]

Написать программу, которая "задумывает" число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток. Ниже представлен рекомендуемый вид экрана во время работы программы:

Игра "Угадай число".
Компьютер "задумал" число от 1 до 10.
Угадайте его за 5 попыток.
Введите число и нажмите <Enter>
-> 5
Нет.
-> 3
Вы выиграли! Поздравляю!

[sheka]

Игра "Угадай число".
Компьютер "задумал" число от 1 до 10.
Угадайте его за 5 попыток.
Введите число и нажмите <Enter>
-> 5
Нет.
-> 3
Вы выиграли! Поздравляю!

Как-то так. Извините, но у меня на клавиатуре западает точка , поэтому кое-что вам прийдется дописать...

...
begin
randomize;
writeln('Игра "Угадай число".');
writeln('Компьютер "задумал" число от 1 до 10.');
writeln('Угадайте его за 5 попыток.');
... :=random(...)+1;
for ... do
begin
  writeln('Введите число и нажмите <Enter>');
  write('-> ');
  readln(chislo);
  if ... then
  begin
    writeln('Вы выиграли! Поздравляю!');
    readln;
    halt;
  end
  else
    writeln('Нет.');
end;
writeln('Вы проиграли!');
readln;
end.

Сообщение отредактировано: sheka - 11.01.2010 21:47