Program: obliczający silnię wprowadzonej liczby.
Po wprowadzeniu liczby przez użytkownika.
Kompilator: Turbo Pascal
Galeria:
Kod programu:
program silnia;
uses crt;
var n,s,i:longint;
begin
clrscr;
i:=1;
s:=1;
write('Podaj liczbę: ');
read(n);
if i>n then s:=1
else
begin
while i<=n do
begin
s:=i*s;
i:=i+1;
end;
end;
write('Wynik to: ',s);
readkey;
end.