viết chương trình tính tổng số nguyên N được nhập từ bàn phím bằng câu lệnh lặp vs số lần biết trược (for...do)
Quảng cáo
1 câu trả lời 777
2 năm trước
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.
Tuan kiet Le
· 2 năm trước
uses crt; var i,n:integer; s:real; begin clrscr; write('Nhap n='); readln(n); s:=1; i:=1; while i<=n do begin s:=s*i; i:=i+1; end; writeln(s:0:0); readln; end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
1 8561
Gửi báo cáo thành công!