Цитата:

---

Inter:
А почему не так...?
Uses Crt;
Var
I:Integer;
St:String;
BEGIN
ClrScr;
TextColor(2);
Write('Wake up, Neo...');
For I:=1 To 27 Do
Begin
Delay(60000);
End;
ClrScr;
St:='Matrix has you. Follow the white rabbit.';
For I:=1 To Length(St) Do
Begin
Write(St[I]);
Delay(60000);
End;
END.

---

Неа! Не рулед! Надписи "Matrix has you" и "Follow the white rabbit" появлялись на экране побуковочно! Так что вот так!

__________________
Ложки нет! Смиритесь с этим...

Адрес поста | Один пост | Сообщить модератору | IP: Logged