2 câu trả lời
program vandat;
uses crt;
var i : integer; s : qword;st : ansistring;
begin clrscr;
s:=1;
for i:=1 to 30 do s:=s*i;
str (s,st);
write('Tich 30 so nguyen dau tien la :', st);
readln
end.
program tich;
uses crt;
var s,i,n:integer;
begin
clrscr;
s:=1;
for i:=1 to 30 do s:=s*i;
writeln('tich la:',s);
readln
end.
Câu hỏi trong lớp
Xem thêm