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. ;]
vegixa
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.
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.