Напишите программу, реализующую игру на угадывание целого числа от 1 до 10. угадываемое число определяется случайно, пользователь вводит предполагаемое значение. если число угадано, программа выводит набранные очки, а если нет-предлагает повторить попытку. каждая безуспешная попытка снижает . в начале игры назначается 10 . , , составить сдать надо завтра.

144

461

Посмотреть ответы 2

Ответы на вопрос:

никита2005216665

Информатика

4,6(74 оценок)

Var a,b,k,i: integer; begin b: =random(10)+1; k: =10; writeln(', я задумал число от 1 до 10. угадай его.'); while a< > b do begin write('введи число: '); readln(a); if a< > b then begin writeln('не попробуй повторить попытку.'); k: =k-1 end end; writeln('молодец! угадал! набранные очки: ',k) end.