Угадай число - Pascal ABC (14469)
Формулировка задачи:
нужна программа угадай число, чтоб компьютер загадывал число от 1 до 100 и отвечал больше наше или меньше или угадали, и еще если за 7 попыток не угадываешь он перезагадывает число и снова 7 попыток дает чтоб угадать. можете помочь?
Решение задачи: «Угадай число»
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.