Pascal uzdevums

Labdien! Vai kāds varētu palīdzēt izlabot kļūdu?
Uzdevums ir tāds:
1) programma aprēķina skaitļa n faktoriālu (visu naturālo skaitļu no 1 līdz n reizinājumu). Skaitļa n faktoriālu apzīmē ar n!, piemēram, 3! = 1 · 2 · 3 = 6. Skaitli n (mazāku par 11) ievada ar tastatūru;
2) mainīgos norādīt apraksta daļā, mainīgajiem piešķirot identifikatorus un izvēloties atbilstošu tipu (faktoriāla mainīgajam tipu longint).

program faktorials;
var
 n: integer;
 f: longint;

begin
 write('Ievadiet veselu pozitivu skaitli: ');
 readln(n);
 n:=0;
 f:=1;
 while n<11 do
 
 n:=n-1;
 f:=f*n;
 writeln('Skaitla ',n, ' faktorials ir ',f);
 readln;

end.

Paldies jau iepriekš!

Komentāri:

#1 ^L00P @ 2014.12.27 11:46

Kāpēc prasi ievadīt lietotājam kaut ko, ja nākošajā rindiņā norādi 0. Un while cikls tev izpildīs tikai 1. rindiņu.