"Viết chương trình tính tích của 100 số tự nhiên đầu tiên bằng câu lệnh lặp" Giúp mik vs ạ, mik xin cảm ơn!!
2 câu trả lời
`\text{uses crt;}`
`\text{var i,tich : integer;}`
`\text{begin}`
`\text{tich:=1;}`
`\text{i:=1;}`
`\text{for i=1 to 100 do}`
`\text{begin}`
`\text{i:=i*1;}`
`\text{tich:=tich*i;}`
`\text{end;}`
`\text{writeln('Tich 100 so tu nhien dau tien la:',tich);}`
`\text{readln}`
`\text{end.}`
Uses crt;
Var s: longint;
i: integer;
Begin
Clrscr;
s:=1;
For i:=1 to 100 do s:=s*i;
Writeln(s);
Readln;
End.
Câu hỏi trong lớp
Xem thêm
- Đề 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
