По теме «цикл с параметром».в паскаль 3+4/2+5/3++11/9 количество знаков после десятичной точки 5

Program zadacha; var a, b, i: integer; sum: real; begin a : = 3; b : = 1; sum : = 0; for i : = 1 to 8 do begin sum : = sum + a / b; a : = a + 1; b : = b + 1; end; writeln('результат: ', sum: 2: 5); readln; end.

1)program qq; const n=(количество чисел в массиве); var a: array[1..n] of integer;       i, s: integer; begin for i: =1 to n do readln(a[i]); s=0; for i: =0 to n do   if (a[i]> 9) and (a[i]< 100) and (a[i]mod2=0)  then s: =s+a[i]; writeln(s); end.2)  program qq1; const n=(количество чисел в массиве); var a: array[1..n] of integer;       i, k: integer; begin for i: =1 to n do readln(a[i]); k: =0; for i: =0 to n do   if (a[i]mod10=3) and (a[i]< 100) and (a[i]> 9)  then k: =k+1; writeln(k); end.

Var       amoebas, t: integer; begin       amoebas : = 1;       t : = 0;             repeat               t : = t + 3;               amoebas : = amoebas * 2;                       writeln(amoebas, ' амеб через ', t, ' часа');           until t > = 24; end.