Электронный задачник( сервис--посмотреть задание)
Сделать:
Case 5
Case 7
Case 10
ИНФА (2)
Страница: 1
Сообщений 1 страница 6 из 6
Поделиться12010-02-08 17:11:06
Поделиться22010-02-17 17:03:33
Д/З НА 18.02.10
BEGIN 12,21
BOOLEAM 6,9
Поделиться32010-02-24 20:13:56
Ни 
чего не задали!!!Ни чего не задали!!!
Поделиться42010-03-11 16:22:33
11 March
FOR 1 9 10 
Поделиться52010-04-22 20:51:53
НА ЗАВТРА!!! 
program super_mill;
uses crt;
VAR
A,B,C:INTEGER;
LABEL 1,2,3,4;
BEGIN
WRITELN('ПЕРВЫЙ ВОПРОС.КАК ЗОВУТ ЛЕРУ ЕЕ ОДНОКЛАСНИКИ');
WRITELN('1)ГОПАРЬ2)ЛЕРА');
READLN(A);
iF A=1 THEN BEGIN
B:= B+10;
WRITELN('ВЕРНО');
WRITELN('B=',B);
WRITELN('СЛЕДУЮЩИЙ ВОПРОС');
WRITELN('ИГРАТЬ? 1-ДА 2-НЕТ');
READLN(C);
IF C=1 THEN GOTO 1
ELSE GOTO 2;
1: BEGIN
WRITELN('ВЫ ПОБЕДИТЕЛЬ!!!');
GOTO 4;
END;
2: BEGIN
WRITELN('ВЫЙГРЫШ 10$');
WRITELN('ИГРА ОКОНЧЕНА');
GOTO 4;
END;
END
ELSE
3: BEGIN
WRITELN('ВЫ ПРОИГРАЛИ!!!');
END;
4: WRITELN('Конец игры');
END.
ПРИМЕР, КАК НАДО ДЕЛАТЬ ИГРУ МИЛЛИОНЕР! 
Отредактировано DEMONER (2010-04-22 20:53:21)
Поделиться62010-04-25 15:48:27
- Дошкольник (курсант)
- Зарегистрирован: 2010-04-11
- Приглашений: 0
- Сообщений: 6
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Провел на форуме:
1 час 8 минут - Последний визит:
2010-08-13 15:43:34
DEMONER написал(а):
НА ЗАВТРА!!!
засунул бы в txt хотябы...
выселю
Страница: 1