1. вычислить факториал N. (4!=1*2*3*4=24)

2. найти среднее геометрическое N чисел

3. вычислить сумму чисел кратных 6 из интервала от 5 до 100 включительно

в программе паскаль

Program gt;

var n, i, p:integer;

begin

read (N) ;

p:=1;

for i:=2 to n do

begin

p:=p*i;

end;

write (p) ;

end.

3)

program gt;

var s:integer;

begin

for i:=5 to 100 do

begin

if (i mod 6=0) then s:=s+i;

end;

writeln (s) ;

end.

2)

program gtr;

var i, n:integer;

p, a:real;

begin

reaD (n) ;

p:=0;

for i:=1 to n do

begin

read (a) ;

p:=p+1/a;

end;

p:=n/p;

write (p) ;

end.