Question

Viết chương trình nhập vào số nguyên dương a. Hãy cho biết số vừa nhập có chia hết cho 3 và 5 không?

 

Answer 1

uses crt;

var a:integer;

begin

clrscr;

repeat

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

until a>0;

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

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

readln;

end.

Answer 2

Program HOC24;

var a: integer;

begin

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

if (a mod 3=0) and (a mod 5=0) then write(a,' chia het cho 3 va 5') else write(a,' khong chia het cho 3 va 5');

readln

end.

Answer 3

uses crt;

var a:integer;

begin

clrscr;

repeat

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

until a>0;

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

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

readln;

end.