Question

Помогите пожалуйста, очень срочно нужно решение

Answer 1

Полный код на паскале

var
    i: integer;
    s: real;

begin
    s := 0;
    for i := 12 to 2001 do
        s := s + i;
    writeln(s);
   
    s := 1;
    for i := 2 to 201 do
        s := s * i / (i + 2);
    writeln(s);
   
    s := 1;
    for i := 1 to 33 do
        if i mod 3 = 0 then s := s * 2;
    writeln(s);
   
    s := 2;
    i := 10;
    while i <= 13 do
    begin
        s := s + 11;
        i := i + 1;
    end;
    writeln(s);
end.

Вывод программы и ответы соответственно
2002935
0.000146320050724284
2048
46