Udělá na obrazovce peknej brajgl a poté počká na stisk entru
Delphi & Pascal (česká wiki)
Kategorija: KMP (Programy mladňakoch
Zrobil: Pavel Paták
web: www.webpark.cz/programar
Program: Nahznaky.pas
Subor exe: Nahznaky.exe
Zrobil: Pavel Paták
web: www.webpark.cz/programar
Program: Nahznaky.pas
Subor 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.