Odpowiedzi

2009-04-20T20:48:36+02:00
Program silnia;
var a,n,s:integer;
s:real;
begin
writeln (‘podaj z jakiej liczby chcesz liczyć silnie’);
readln (n);
a:=1;
s:=1;
for a:=1 to n do
begin
s:=s*a;
a:a+1;
end;
writeln (s);
readln;
end.

na 100% to jest dobrze