Сколько было иероглифов в египетском письме?

иероглифов в   египетском письме было 6000

египетское письмо- около 6000 знаков

{общий член последовательности можно  задать формулой   sn=((an-1)+(bn-1))/(an-1)  где a- числитель,   в - знаменатель } const n=10; var a,b,c,i,k: integer; begin     a: =1;   b: =1; { вывод последовательности на экран   }     for i: =2 to n do       begin           c: =a;       a: =a+b;         b: =c;             writeln(i,'   ->   ',a,'/',b);         end; { подсчет k - го члена   }       k: =20;   a: =1;   b: =1;       for i: =2 to k do          begin                c: =a;         a: =a+b;         b: =c;         end;         writeln(k,' - ый элемент = ',a,'/',b);     end.

Как то так, можешь заменить так что бы ракета вверх двигалась.program raketa; uses graphabc; var i: integer; beginfor i: =1 to 300 do beginline (i+300,60,i+240,120); line (i+240,120,i+240,360); line (i+360,120,i+360,360); line (i+240,360,i+360,360); line (i+300,60,i+360,120); line (i+240,210,i+210,240); line (i+210,240,i+240,240); line (i+360,210,i+390,240); line (i+390,240,i+360,240); circle (i+300,150,15); circle (i+300,210,15); circle (i+300,270,15); line (i+240,360,i+180,450); line (i+180,450,i+420,450); line (i+420,450,i+360,360); line (i+330,450,i+330,370); line (i+300,450,i+300,365); line (i+270,450,i+270,370); clearwindow; end; end. end.