Вот моя игра . Угадай число.
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);
введите число.');
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.
на одном языке программирования написали другой
2 текст на английском нужно перевести на русский дабы все пользователи поняли, и конечно же переведенный мануал где нить как нить запомнили(хоть в электронном виде хоть распечатали, хоть от руки написали)
3 ОГРОМНАЯ база данных хранит огромное количество данных на всем предприятии, ее разбили на части и дали каждому отделу лишь то что необходимо им
4 пришел к другу копирнул фильм на флешку, дабы посмотреть дома
5 мне сказали что нельзя совать вилку в розетку(вроде причину я тогда еще не понял, но воспринял и не совал)
6 передаем сообщение(хоть смс, хоть азбуку морзе) везде есть измерения количества информации, а здесь зачастую спрашивают минимальное количество информации необходимое для передачи маленьких сообщений
7 мне по скайпу кинули картинку я ее принял
8 а вот пока мне ее кидали я ее принимал, был процесс передачи
9 вирус залез на комп и стер базу данных какую нить
10 идентично 8 же разве нет?
Объяснение: