Ответы
Ответ дал:
0
var
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.
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.
Ответ дал:
0
Как удалить?
Ответ дал:
0
Обратитесь к модератору.
Ответ дал:
0
ладно уж,за помощь спасибо
Ответ дал:
0
Удалять, не?
Ответ дал:
0
да оставь чё уж
Вас заинтересует
2 года назад
2 года назад
9 лет назад
9 лет назад