Viết chương trình lập 2 số nguyên dương a, b từ bàn phím (a
1 câu trả lời
Program BTT;
Uses crt;
Var a,b,i: longint;
Begin
Clrscr;
Write('Nhap a, b: '); Readln(a,b);
For i:=a to b do
If (i mod 2 = 1) and (i mod 3 <>0) and (i mod 5<>0) then Write(i,' ');
Readln
End.
