Alap programozás, de nem megy. Segitenétek?

Meddig jutottál?

[link]

Itt gyakorlatilag meg van írva a te feladatod is.

szorzat:=1;

for i:=1 to n do

szorzat:=szorzat*i;

A szövegben le van írva, hogy hogyan kell csinálni. Ha nem tudsz programozni, akkor szerintem inkább Google-zz.

De hogy segítsek is:

Kell két változó:

X,N

X-et beállítod 1-re, ez lesz a faktoriális (tehát az eredmény)

N-be olvasod be az N-et :)

aztán ciklus, mondjuk egy while ciklus (elöl tesztelős), feltétele: N>1

a ciklusban X := X * N (ez csak elméleti, nem tudom pascalban hogy van, tehát X-be kiszámolod az X és az N szorzatát), majd csökkented eggyel az N-et

a ciklus után kiírod az X értékét, ami az N!-ra lesz egyenlő

program fact;

var

n: integer;

i: integer;

eredmeny: integer;

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:=0;

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

end.