1!+2!+3!+4!+5! решите это задачку на Программном языке Pascal либо DelphiТолько верно

1!+2!+3!+4!+5! решите это задачу на Программном языке Pascal либо Delphi
Только верно даю 30 баллов.

Задать свой вопрос
Гень Альбина
1!-это факториал, правильно понимаю?
Геннадий Анташин
да
2 ответа
Делал вчера, тут вычисляется сума факториалов в интервале от 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.
Миха Толкациев
Если для тебя прям критично от 1 до 5 пиши.
Timur
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.
Напух Амина
ошибку исправил
Виктор
Вычислять будет правильно, но очень неэффективно. Поначалу посчитается 1*2, потом 1*2*3, 1*2*3*4, 1*2*3*4*5. Обыкновенные задачки необходимо решать просто.)
Валера Карнов
Не люблю простоту, все что просто для меня трудно(
Данька Цунц
Да, писать программки просто - это трудно. ) Необходимо обучаться.
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт