Question

W turbo lub free pascal.
Napisz program, który wypisze jedną pod drugą wszystkie silnie z przedziału od 1 do 10, aby wyświetlał taki wynik:
1!=1
2!=2
3!=6
4!=24
5!=120 itd. ;]

Answer 1

Program silnia1;
Uses crt;
var n,i,s:longint;
Begin
clrscr;
for n := 1 to 10 do
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln (n,'! = ',s);
end;
readln;
end.