Question

Составьте Блок-схемы.

Answer 1

d=12-процентов
i=10-дни

Answer 2

Var
    i: integer;
    d, s: real;

begin
    d := 10;
    s := d;
    
    for i := 2 to 7 do
    begin
        d := d * 1.1;
        s := s + d;
    end;
    
    writeln(s);
end.