Ilyet, hogy lehet Pascalban?

A ciklusokról ugye hallottál már? Mindössze 3 változóval megoldottam neked a problémát (és még az sem kizárt, hogy kevesebb változó is elég lenne):

program faktorialis;

var

n: integer;

i: integer;

eredmeny: longint;

begin

write('Kerem a szamot (n): ');

readln(n);

eredmeny:=1;

if n>0 then

begin

for i:=1 to n do

eredmeny:=eredmeny*i;

end

else eredmeny:=1;

writeln(n,'!= ',eredmeny);

end.

Ezt a problémát rekurzióval is meg lehet oldani. Google-ben keress Free Pascal Factorial kifejezésre.

miért kellene előre tudni?

Be: szam

fakt:=0

ciklus i:=szam-tól 1-ig

fakt:=i*i-1

Ki: fakt

szerintem működik, de nem teszteltem

és nem jó mert

fakt:=fakt+i*i-1

Szam:=1;

For i:= 1 to beszam do

Begin szam:=beszam*szam;

end;

Magyarul ez pl. az 5-öt az 5-dikre emeli...

-Faktoriális:

{szam bekérése}

for i:=2 to szam-1 do

szam:=szam*i;

-Hatvány:

{szam és hatvany bekérése}

eredmeny:=1;

for i:=1 to hatvany do

eredmeny:=eredmeny*szam;

uses crt;

var k:integer;

function fakt(n:integer):longint;

begin

if n>0 then fakt:=n*fakt(n-1)

else fakt:=1;

end;

begin

clrscr;

write('Kerek egy egesz szamot (0..12): ');

readln(k);

writeln(k,'! = ',fakt(k));

end.