0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
While (n<1) or (n>=10) do
Begin
Write('Yeu cau nhap lai: '); Readln(n);
End;
s:=1;
For i:=1 to n do
s:=s*i;
Write('S = ',s);
Readln;
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
114
55
Đề khá sai: n>1 và n>=10 thì ko bao giờ làm đc phải n<1 và n=10
Write(‘nhap n: ‘);readln(n);
while (n<1)or(n=10) do Write(‘nhap lai n: ’);readln(n);
I:=0;
p:=1;
While i<>n do
begin
Inc(i);
p:=p*i;//p là kq
end;
phần xuất khai báo tự làm
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin