Viết chương trình lập 2 số nguyên dương a, b từ bàn phím (a { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình lập 2 số nguyên dương a, b từ bàn phím (a
Viết chương trình lập 2 số nguyên dương a, b từ bàn phím (a { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình lập 2 số nguyên dương a, b từ bàn phím (a
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.