Program silnia1;Uses crt;var n,i,s:longint;Beginclrscr;Writeln('Podaj n');readln(n);begins:=1;for i:=1 to n dos:=s*i;writeln (n,'! = ',s);end;readln;end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
Program silnia1;
Uses crt;
var n,i,s:longint;
Begin
clrscr;
Writeln('Podaj n');
readln(n);
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln (n,'! = ',s);
end;
readln;
end.