Угадай число - Pascal ABC (14469)

Формулировка задачи:

нужна программа угадай число, чтоб компьютер загадывал число от 1 до 100 и отвечал больше наше или меньше или угадали, и еще если за 7 попыток не угадываешь он перезагадывает число и снова 7 попыток дает чтоб угадать. можете помочь?

Код к задаче: «Угадай число - Pascal ABC (14469)»

textual
Program ttttt;
Var c,n,i:integer;
Begin
Write('Компьютер загадал число от 1 до 100. Какое число? ');
n:=random(100);
Repeat
For i:=1 to 7 do begin
Readln(c);
If c=n then begin writeln('Вы угадали!'); exit; end
Else if c<n then write('Число ',c,' меньше загаданного! ')
Else if c>n then write('Число ',c,' больше загаданного! ');
If i=7 then begin writeln();
  writeln('Число не отгадано за 7 попыток. Компьютер загадал другое число. Какое число? ');
  n:=random(100);
end; end;
Until c=n;
End.

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ