Основные конструкции языка программирования паскаль. вариант 4. 1. в алгоритме, записанном ниже, используются целочисленные переменные a и b. oпределите значение переменной a после исполнения данного алгоритма: a: =-3; b: =(a+2)*(a+2); a: =2*b-a. 2. определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на паскале. var s, k: integer; begin s: =1; for k: =1 to 30 do s: =(-1)*s; writeln(s) end.

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.