1!+2!+3!+4!+5! решите это задачу на Программном языке Pascal или DelphiТолько правильно даю 30 баллов.
127
ОТВЕТЫ
Делал вчера, здесь вычисляется сума факториалов в промежутке от n до m
var
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
s:=fact(i)+s;
writeln(Suma: ,s);
end.
var
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
s:=fact(i)+s;
writeln(Suma: ,s);
end.
Var s,f,i:integer;
begin
f:=1;
s:=0;
for i:=1 to 5 do
begin
f:=f*i;
s:=s+f;
end;
writeln(s = ,s);
end.
Результат:
s = 153
begin
f:=1;
s:=0;
for i:=1 to 5 do
begin
f:=f*i;
s:=s+f;
end;
writeln(s = ,s);
end.
Результат:
s = 153
240
Отв. дан
Saah
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Ростислав
В 10а и 10б классах девочек 1110двоичной. Сколько мальчиков ...
2019-01-23 04:23:09
Shaligrinn
Получить число 777 с помощью исполнителя Автомат . СРОЧНО!!!!!
...
2019-01-23 04:22:40
Фиалковский
Плиз человеку нужна помощь!! Срочно дам за это 57 ...
2019-01-23 04:21:48
Пармен
Аня сделала 2 букета из васильков. В одном букете ...
2019-01-23 04:21:28