pas cau 13
var
n,i:integer;
s:real;
write('nhapn');
readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
write('tongla:',s:4:1);
readln;
end.
Bạn đang đọc truyện trên: AzTruyen.Top
var
n,i:integer;
s:real;
write('nhapn');
readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
write('tongla:',s:4:1);
readln;
end.
Bạn đang đọc truyện trên: AzTruyen.Top