Question

[Dienn]

Viết chương trình nhập vào một số dư nhập từ bàn phím và kiểm tra xem nó có chia hết cho 3 không

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if a mod 3=0 then writeln(a,' chia het cho 3')

else writeln(a,' khong chia het cho 3');

readln;

end.

Answer 2

[Nguyễn Phương]

s ko có program