- Forum Klasy 1Ic http://www.1icrule.pun.pl/index.php - Only VIP! http://www.1icrule.pun.pl/viewforum.php?id=6 - Silnia by Ac!D>>> http://www.1icrule.pun.pl/viewtopic.php?id=116
AciD - 2008-09-16 10:50:37
program silnia; var n,z:integer; begin writeln ('PROGRAM OBLICZY SILNIE Z DANEJ LICZBY') ; writeln; writeln('Podaj liczbe, ktorej chcesz liczyc silnie:') ; readln(n); z:=1; z:=z*n; if n=0 then z:=1 else if n=1 then z:=1 else begin repeat n:=n-1; z:=z*n; until n=1; end;;; writeln('Wynik:',z) ; writeln; writeln('KONIEC PROGRAMU') ; readln; end.