Ответы на вопрос:
i,m,n,s:integer;
function fact(a:integer):integer;
var l:integer;
begin
l:=1;
for i:=2 to a do
l:=l*i;
fact:=l;
end;
begin
read(m);
readln(n);
s:=0;
for i:=m to n do
if i mod 2=0
then s:=fact(i)+s;
writeln(‘Suma: ‘,s);
end.
Популярно: Информатика
-
ььь5504.07.2022 07:24
-
Farxadkishi11.03.2022 07:12
-
makc59p0dpo207.11.2022 04:17
-
kolotilka2301.11.2021 05:42
-
Алла3626.01.2020 11:53
-
stephanzakharop010v819.04.2020 21:41
-
nikbomba06.02.2022 11:03
-
rhxtdf18.04.2023 11:38
-
aminatikhonova1223.09.2020 15:12
-
Mаjоr03.11.2020 05:51