Odpowiedzi

2010-03-18T17:05:33+01:00
Program silnia;
var n,z:integer;
begin
writeln ('PROGRAM OBLICZY SILNIE') ;
writeln;
writeln('Podaj liczbe:') ;
readln(n);
z:=1;
z:=z*n;
repeat
n:=n-1;
z:=z*n;
until n=1;
writeln('Wynik:',z) ;
writeln;
writeln('koniec') ;
readln;
end.
2 3 2