Прочитайте условия и составьте блок схему. дан радиус круга r=2 определите диаметр круга . сор не игнорируйте.. программный код 20

Const     n = 13; var     a: array[1..n] of integer;     i,k: integer; begin randomize; k: =0; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(n div 3);       write(' ',a[i])       end; for i: = 1 to n-2 do       if (a[i]=0)and(a[i+1]=0)and(a[i+2]=0) then             k: =1; writeln; if k=0 then writeln('в массиве нет ряда из трёх нулей') else writeln('в массиве есть ряд из трёх нулей') end.

Var     f2: real;     n,f: longint; begin write('n = '); readln(n); f: =1; for n: = 1 to n do       f: =f*n; f2: =1; for n: = 1 to f do       f2: =f2*n; writeln(' = ',f2); end. предел этой программы: n = 5 = 6.68950291344912e+198 больше не выдержит вещественный тип. var     s: real;     n: integer; begin write('n = '); readln(n); s: =0; for n: = 1 to n do       s: =s+1/n; writeln('s = ',s); end.