VCT nhập vào 1 số n.Tính tích các số chia hết cho n từ 1 đến 50.In tích
2 câu trả lời
program tich;
Var
N,i,P:longint;
Begin
write('Nhap N: '); readln(n);
P:=1;
For i:=1 to 50 do if i mod n=0 then P:=P*i;
write(P);
Readln;
End.
#HNgoc
Program baitap;
Uses crt;
Var n,i:integer;
T:extended;
Begin
Clrscr;
T:=1;
Write('n='); Readln(n);
For i:=1 to 50 do If (i mod n=0) then T:=T*i;
Writeln('Tich cac so chia het cho n tu 1 den 50:',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
