вот , моя игра . угадай число.
program k2game; uses crt; var i,a,n: integer; begin textbackground(14); clrscr; gotoxy(33,2); textcolor(4); writeln('игра "угадай число! " '); delay(400); textcolor(5); gotoxy(23,4); writeln('1. компьютер загадывает число от 0 до 9.'); delay(840); textcolor(5); gotoxy(23,5); writeln('2. ваша - угадать это число! '); delay(840); textcolor(5); gotoxy(23,6); writeln('3. не забывайте, что у вас всего две попытки! '); delay(640); textcolor(5); gotoxy(23,7); writeln('4. если же вы ошиблись, то компьютер даст вам подсказку.');
randomize; a: =random(10); n: =0; textcolor(0); repeat gotoxy(23,9); writeln(' введите число.'); gotoxy(23,10); readln(i); if (i < > a) then begin n: =n+1; gotoxy(23,11); if (i> a) then writeln('подсказка: загаданное число меньше.') else writeln('подсказка: загаданное число больше.') end; until ((i=a) or (n=2));
gotoxy(23,13); textcolor(2); if (i=a) then writeln('поздравляю! вы выйграли! ') else writeln('к сожалению,н
о вы проиграли! ');
end.
Поделитесь своими знаниями, ответьте на вопрос:
Открывайте картинку полностью и
ответ: да, да, нет, да, нет информации, да, нет информации и последние три тоже нет информации.
объяснение: