Написать программы в pascal abc 1.найти сумму s=3/1+6/14+9/+99/200 2.среди 3-х значных чисел найти и вывести на экран числа, которые равны сумме кубов своих цифр

1.
var i:integer; s:real;
begin
s:=3;
for i:=2 to 33 do s:=s+3*i/(2*3*i+2);
writeln('s = ',s:6:4);
end.

Результат:
s = 18.5161

2.
var i1,i2,i3:integer;
begin
for i1:=1 to 9 do
 for i2:=0 to 9 do
  for i3:=0 to 9 do
   if i1*i1*i1+i2*i2*i2+i3*i3*i3=i1*100+i2*10+i3
    then write(i1*100+i2*10+i3,' ');
end.

Результат:
153 370 371 407

Program fantscrin;

 const n = 15;

 const m = 10;

 Var x: array [1..n] of real;

     y: array [1..n] of real;

     z: array [1..n+m] of real;

     i,e_1,e_2,g:integer; s,p,min:real;

     

Begin

 for i:=1 to n do

   x[i]:=random(20)-10;

 for i:=1 to m do

   y[i]:=random(10)-5;

   

 for i:=1 to n do

   write(x[i],'  ');

   

 s:=0;  

 for i:=1 to n do

   if(i mod 2 <> 0) then s:=s+x[i];

   

 for i:=1 to n do

   if (x[i] < 0) then

                 begin

                   e_1:=i;

                   break;

                 end;

 for i:=n downto 1 do

   if (x[i] < 0) then

                 begin

                   e_2:=i;

                   break;

                 end;

 

 p:=1;

 for i:=e_1 to e_2 do

   p:=p*x[i];

 

 

 for i:=1 to n do

   z[i]:=x[i];

 for i:=1 to m do

   z[n+i]:=y[i];

 

 min:=z[1];

 g:=1;

 for i:=2 to n+m do

   if (z[i] < min) then  

                   begin

                     min:=z[i];

                     g:=i;

                   end;

 writeln('');

 writeln('1. : ',s);

 writeln('2. : ',p);

 for i:=1 to m do

   write(y[i],'  ');

 writeln('');

 for i:=1 to n+m do

   write(z[i],'  ');

   

 for i:=g to n+m-1 do

   z[i]:=z[i+1];

 

 z[n+m]:=0;

 

 writeln('');

 writeln(g);

 for i:=1 to n+m-1 do

   write(z[i],'  ');

End.

Сам Код:

class Girafe:

   def dance(self):

       happy_girafe.l_f_1()

       happy_girafe.l_f_2()

       happy_girafe.l_f_3()

       happy_girafe.l_f_4()

       happy_girafe.l_f_2()

       happy_girafe.l_f_4()

       happy_girafe.l_f_3()

       happy_girafe.l_f_1()

   pass

   def l_f_1(self):

       print ('левая нога впереди')

   pass

   def l_f_2(self):

       print ('левая нога сзади')

   pass

   def l_f_3(self):

       print ('правая нога впереди')

   pass

   def l_f_4(self):

       print ('правая нога сзади')

   pass

pass

happy_girafe = Girafe()

print ("Посмотрите! Посмотрите! Жираф умеет танцевать! Введите happy_girafe.dance() Чтобы увидеть его танец!")