1. составить программу вычисления значения функции x= 3.56*(а+в) в кубе -5.8в в квадрате...

Question

1. составить программу вычисления значения функции x= 3.56*(а+в) в кубе -5.8в в квадрате +3.8а - 1.5 при любых хначениях а и в
2. найдите сумму следующей последовательности а1+а2+а3+а4.....+аn где n количество элементов задаваемых пользователем
Заранее спасибо)

Answer 1

Program zadacgha;
Var a,b,n,w:integer;
       x:real;
       begin
                Readln(a);
                Readln(b);
                x:=3.56*(a+b*(a+b))-5.8*b*b-1.5;
                 Writeln(x:5:5);
                 Readln(n);
                  For w:=1 to n do
                          a:=a*w+a;
                  Writeln(a);
          end.

Answer 2

Var a, b:integer;

x:real;

begin

  readln(a);

  readln(b);

x:=3.56*((a+b)*sqr(a+b))-5.8*b*b-1.5;

Writeln(x);

end.