Задача. Турист під час походу пройшов три ділянки шляху. Першу - зі швидкістю 3, 6 км/год за 4 год, другу – відстанню 3, 6 км за 3 год, третю – 2, 5 км зі швидкістю 5, 4 км/год. Знайти невідомі величини на кожній ділянці руху, середню швидкість, максимальну та мінімальну швидкість, довжину шляху, який пройшов турист, обчислюючи їх у системі СІ.

Объяснение:

L = V*t    де L- відстань, t-час, V-швідкість

L₁ = 3,6*4 = 14,4 км

V₂ = 3,6/3 = 1,2 км/год

L₃ = 2,5*5,4=13,5 км

середня швидкість Vс=V₁+V₂+V₃/3

Vс= (3,6+1,2+5,4) = 3,4 км/год

Vmax = 5,4 км/год

Vmin = 1,2 км/год

Lвесь = L₁+L₂+L₃

Lвесь = 14,4+3,6+13,5 = 31,5 км

{общий член последовательности можно  задать формулой   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;
begin
For i:=1 to 300 do begin
line (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.