Ответы на вопрос:
//pascal abc.net 3.1 сборка 1256 uses graphabc; const s='sample text'; //текст d=10; //задержка var x: integer; begin randomize; x: =windowwidth; while x> =0 do begin textout(x,windowheight-20,s); setfontcolor(rgb(random(255),random(255),random(; sleep(d); dec(x); clearwindow; end; end.
Популярно: Информатика
-
ФионаА28.09.2020 11:24
-
Brynd28.07.2020 21:22
-
maxon2312.06.2021 17:50
-
victoriyasergi28.11.2022 14:18
-
lyntik22811.03.2020 21:50
-
PoMOgiTe212lk12.12.2020 22:42
-
kasimova2000119.01.2023 18:16
-
akknastenka1926.01.2021 15:09
-
ромкапомка117.01.2022 00:01
-
xKarishax04.09.2020 18:58