Viết chương trình tính T=1, 2, 3,...N. Với N nhập từ bàn phím (N ≤ 10)
2 câu trả lời
uses crt;
var n,i,t:longint;
begin
clrscr;
write('n=');readln(n);
t:=1;
for i:=1 to n do t:=t*i;
writeln('T= ',t);
readln
end.
uses crt;
var tich,i,n:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
tich:=1;
for i:=1 to n do tich:=tich*i;
writeln(tich);
readln;
end.
Câu hỏi trong lớp
Xem thêm
