Bài tập 2: Viết chương trình nhập số b. In thông báo, 3 là ước số của b hay 3 không là ước số của b:
Program CT_BtDieukien2; Uses CRT; Var b : integer; tb : string; Begin Clrscr; Write(‘Nhap b:’); readln(b);
……… b mod 3 = 0…….. Begin
End ……… Begin
End; Writeln(tb); Readln; End. |