Viết chương trình tìm và in ra màn hình các số chia hết cho 3 và 5 nhưng không chia hết cho 10 trong khoảng từ 1 đến 1.000.000 pascan đang cần gấp ạ rất gấp
2 câu trả lời
uses crt;
var k : longint;
begin
clrscr;
for k := 1 to 1000000 do
if (k mod 1 = 0) and (k mod 3 = 0) and (k mod 10 <> 0)
then write(k : 10);
readln
end.
Program baitap;
Uses crt;
Var i:int64;
Begin
Clrscr;
For i:=1 to 1000000 do
If (i mod 3=0) and (i mod 5=0) and (i mod 10<>0) then write(i,', ');
Readln
End.
______________________________
Đã test code
