VCT nhập vào 1 số n .Tính tích các số chia hết cho n từ 1-10.In tích lưu lại vơi ten Bai2 mình học ngôn ngữ pascal mới tới 4 kiểu dữ liệu:real,string,char,integer nhớ chụp giúp mình cho dễ nhìn xíu nhé:)
2 câu trả lời
$#QLinkVN$
Cấu trúc chương trình và kết quả chương trình khi nhập `n=2` có trên hình! Em xem qua nha!
uses crt;
var i, t, n : integer;
begin
clrscr;
t := 1;
write('nhap so n : '); readln(n);
for i := 1 to 10 do
if i mod n = 0 then t := t * i;
write('tich = ', t);
readln
end.
* vd :
- n = 2;
- các số chia hết cho n = 2 từ 1 đến 10 : 2 4 6 8 10
- tích = 2 * 4 * 6 * 6 * 10 = 3480
- Đề 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
