Предмет: Информатика,
автор: MaryLW1
Напишите программу вычисления выражения: (паскаль)
s =1!+2!+3!+...+ н!
Используйте ПРОЦЕДУРУ вычисления факториала!
MaryLW1:
на паскале(
Ответы
Автор ответа:
0
Ответ:
var a,b,i,c,l:integer;
procedure F(n:integer);
begin
a:=a*n;
end;
begin
c:=0;
a:=1;
write('Введите количество аргументов: '); readln(l);
for i:=1 to l do begin
F(i);
c:=c+a;
end;
write(c);
end.
не работает\
РАБОТАЕТ!!!!!!!!!!!!!!!
круто! только я беспокоюсь, что может быть процедуру надо немного по-другому написать
в принципе так тоже правильно работает
Так, наверное, будет более правильно в рамках задания, но менее оптимально в рамках вычислительных ресурсов:
var a,b,i,c,l:integer;
procedure F(n:integer);
var j:integer;
begin
for j:=1 to n do a:=a*j;
end;
begin
c:=0;
write('Введите количество аргументов: '); readln(l);
for i:=1 to l do begin
a:=1;
F(i);
c:=c+a;
end;
write(c);
end.
procedure F(n:integer);
var j:integer;
begin
for j:=1 to n do a:=a*j;
end;
begin
c:=0;
write('Введите количество аргументов: '); readln(l);
for i:=1 to l do begin
a:=1;
F(i);
c:=c+a;
end;
write(c);
end.
Похожие вопросы
Предмет: Математика,
автор: arina831
Предмет: Физика,
автор: dashamishka01
Предмет: Литература,
автор: estradiol58
Предмет: Биология,
автор: denis416
Предмет: Математика,
автор: Adami