22. Составить
программу для вычисления суммы факториалов, всех чисел, кратных 3, от А до В.
Задачу решить с использованием процедуры или функции.
Решение
program
lab22;
var
i,k,a,b,j,n,p:integer;
fact,sum:longint;
function
M(p:integer):longint;
begin
M:=0;
fact:=1; k:=1;
if (p
mod 3)=0 then
begin
repeat
fact:=fact*k;
k:=k+1;
until
k>p;
writeln('Factorial
',p,'=',fact);
M:=fact;
end;
end;
begin
writeln('Enter
a and b:');
readln(a,b);
sum:=0;
for i:=a
to b do
sum:=sum+M(i);
writeln('Summa
factorialov=',sum);
end.