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

uses graphabc; var i: integer; beginsetfontsize(30); for i: =1 to 256 do beginsetfontcolor(rgb(random(256-10),random(256-10),random(256-; textout(210,200,'hello,world! '); sleep(50); end; end.скорость мерцания можно менять значением процедуры sleep.

[20.01, 14:33] Салия: Косылмаижатыр

[20.01, 14:35] Салия: Менын косаика

[20.01, 14:35] Салия: И сурет жыберш

[20.01, 14:38] Салия: Ало

[20.01, 15:10] Салия: Косылмаижатыр бэоыбыр

[20.01, 15:14] Салия: https://link.brawlstars.com/invite/gameroom/ru?tag=XPWF847L

[20.01, 15:14] Салия: Мнаган кырш

[20.01, 15:17] Муслим:

[20.01, 15:18] Муслим: https://link.brawlstars.com/invite/gameroom/ru?tag=XPWYCRSL

[20.01, 15:23] Муслим: Ия

[20.01, 15:24] Муслим: https://link.brawlstars.com/invite/band/ru?tag=V2QUJRLY&token=m9a43zgp

[21.01, 10:07] Салия: Муслим боаввл стпрт оинаисынба

Объяснение:

просто

function fact(n: integer): integer;

var

  rez, i: integer;

begin

  rez : = 1;

  for i : = 2 to n do

      rez : = rez * i;

  fact : = rez;

end;

 

function pow(a, x: integer): integer;

var

  rez, i: integer;

begin

  rez : = 1;

  for i : = 1 to x do

      rez : = a * rez;

  pow : = rez;

end;

 

var

  a, b, n, i: integer;

  f: real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('n = '); readln(n);

  f : = 0;

  for i : = 1 to n do

      f : = f + fact(n - i + 1)/(pow(a,i) - pow(b, i));

  writeln('f = ', f);

end.