www.techinf1.fora.pl

isar

program silnia ;
var a , wyn, sil : integer ;

begin
writeln('podaj liczbe ktorej silnie mam obliczyc');
readln(sil); {wczytuje podana liczbe jako zmienna 'sil'}
wyn:=1; {za zmienna wynik przypisuje liczbe 1}
for a:=1 to sil do {petla zakancza sie gdy zmienna a=sil}
wyn:=wyn*a; {za zmienna wyn przypisuje wyn*a}
writeln(wyn); {wyswiela zmienna WYN}
readln;
end.

program napisany (skopiowany) przez marcina niestety nie dziala.
a ten dziala:D

jak obliczyc silnie "recznie?"
jezeli chcemy obliczyc silnie liczby 5 dzialanie wyglada tak:
1*2*3*4*5, a wiec silnia liczby 5 wynosi 120;)