составить программу ** языке программирования Паскаль, которая бы в ходе работы заданного...

Question

составить программу на языке программирования Паскаль, которая бы в ходе работы заданного цикла периодически меняла бы цвет выведенного на экран текстового "псевдорисунка" или любой фразы (например, "Привет, МИР!").

Answer 1

uses graphabc;
var i:integer;
begin
setfontsize(30);
for i:=1 to 256 do begin
setfontcolor(rgb(random(256-10),random(256-10),random(256-10)));
textout(210,200,'Hello,world!');
sleep(50);
end;
end.

Скорость мерцания можно менять значением процедуры sleep.