Viết chương trình nhập vào số n sau đó tính tích các số từ 1 đến n.
2 câu trả lời
uses crt;
var s,i,n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write('Tich cac so tu 1 den ',n,' la: ',s);
readln
end.
program ct;
uses crt;
var t,i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
t:=1;
for i:=1 to n do t:=t*i;
writeln('tích các số từ 1 đến n la:',t);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
