Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

        Window(10,10,53,15); {вывод вопроса, ожидание ввода ответа}

        TextBackGround(cyan);

        clrscr;

        while not Eoln(c)or(b<>'&') do Begin

                                       Read(c,b);

                                       If b<>'&' Then Write(b);

                                       End;

        Writeln;

        Window(55,10,80,15); {вывод сообщения о вводе ответа}

        TextBackGround(blue);

        clrscr;

        Write('ваш ответ ');

        TextColor(yellow);

        repeat{таймер}

        Window(60,20,70,21);

        TextBackGround(black);

        clrscr;

        z2:=z2-1;

        If z2<0 Then Begin

                     z1:=z1-1;

                     z2:=60;

                     End;

        If (z1=0)and(z2=0) Then GoTo l1;

        GetTime(g1,g2,g3,g4);

        Writeln(z1,':',z2);

Рекомендуем скачать другие рефераты по теме: allbest, реферат отношения.



Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки