Найти суму факториала
Найти суму факториала 1....5
Но я много не знаю, учим сейчас " Оператор циклу з передумовою, оператор циклу з параметром"
Подскажите пожалуйста.....???
Но я много не знаю, учим сейчас " Оператор циклу з передумовою, оператор циклу з параметром"
Подскажите пожалуйста.....???
program faktorial;
uses crt;
var i,k,s,n : integer;
begin
writeln('Ввести значення');
readln(n);
k:=1;
s:=0;
writeln('i k');
for i:=1 to n do
begin
k:=k*i;
s:=s+k;
writeln(i,' - ',k);
end;
writeln('suma faktoriala = ', s);
end.
uses crt;
var i,k,s,n : integer;
begin
writeln('Ввести значення');
readln(n);
k:=1;
s:=0;
writeln('i k');
for i:=1 to n do
begin
k:=k*i;
s:=s+k;
writeln(i,' - ',k);
end;
writeln('suma faktoriala = ', s);
end.
program pr;
uses crt;
var i,d,c,n:integer;
begin
clrscr;
readln(n);
d:=1;
for i:=1 to n do
begin
c:=c+1;
d:=d*c;
end;
write(d);
end.
uses crt;
var i,d,c,n:integer;
begin
clrscr;
readln(n);
d:=1;
for i:=1 to n do
begin
c:=c+1;
d:=d*c;
end;
write(d);
end.