1. вычислить факториал N. (4!=1*2*3*4=24) 2. найти среднее геометрическое N чисел3. вычислить сумму чисел кратных 6 из интервала от 5 до 100 включительно в программе паскаль

var factorial, factorial_, summa, b:integer;

begin

Задание 1.

factorial:=1;

for i:integer:=1 to 4 do

factorial:=i*factorial;

writeln ('Факториал четырех равен:');

writeln (factorial);

writeln;

Задание 2.

factorial_:=1;

for i:integer:=1 to factorial do

begin

read (b);

factorial_:=i*b;

end;

writeln ('Среднее геометрическое чисел равно:');

writeln (power (factorial_,1/factorial));

Задание 3.

for i:integer:=5 to 100 do

if i mod 6 = 0 then

summa:=summa+i;

writeln ('Сумма чисел, которые кратны 6 из интервала [5; 100] равна:');

writeln (summa);

end.