| Хы) Контакт всех сдает нынче)) И вид из окна видел xDD с места работы и принтер и фотик и телефон)) | |
| Фигня, я на своем 3 раза клавиатуру менял уже. | |
| Ну правильно, зачем учиться на чужих ошибках. | |
| Ну, что... С праздником! | |
Хы) Контакт всех сдает нынче)) И вид из окна видел xDD с места работы и принтер и фотик и телефон))
Эх, ах... Так давайте уже в други) | |
| п.14 Я вобще то не привязывался, а предложил быть людьми и уважать других. | |
Я вобще то не привязывался, а предложил быть людьми и уважать других.
Хорошо, вы правы. Я уверен, он больше так не будет. | |
| ё-хо-хо) | |
Uses Crt;
Var
A, C, B : Integer;
Begin
clrscr;
Randomize;
gotoXY(20,10); Writeln('Где шарик? Введи номер стакана…');
A:=Random(99);
If A<=33 then B:=1 Else If A>66 then B:=3 else B:=2;
GotoXY(20,11); Writeln(' _ _ _');
GotoXY(20,12); Writeln('/ \ / \ / \');
GotoXY(20,13); Writeln(' 1 2 3');
Readln(C);
If C=B then Write('Вы угадали!!!') else Write('Вы ошиблись!');
GotoXY(20,11); Writeln(' ');
GotoXY(20,12); Writeln('\_/ \_/ \_/');
GotoXY(17+4*B,12); Write('O');
Readln; end. | |
| класс =D | |
