Udělá na obrazovce peknej brajgl a poté počká na stisk entru
Delphi & Pascal (česká wiki)
Category: KMP (Club of young programmers)
Author: Pavel Paták
web: www.webpark.cz/programar
Program: Nahznaky.pas
File exe: Nahznaky.exe
Author: Pavel Paták
web: www.webpark.cz/programar
Program: Nahznaky.pas
File exe: Nahznaky.exe
Udělá na obrazovce peknej brajgl a poté počká na stisk entru.
{ NAHZNAKY.PAS Copyright (c) Pavel Patak } { Udela na obrazovce peknej brajgl a pote pocka na stisk entru } { } { Datum:28.10.2004 http://www.trsek.com } Program NahodneZnaky; Uses Crt; Begin ClrScr; Randomize; Repeat TextColor(Random(17)); Write(Chr(Random(256))); Until Random(1000)=917; Readln; End.