viết chương trình nhập vào 1 số nguyên, kiểm tra số nguyên đó có chia hết cho 3 và 5 hay không chương trình pascal ạ
2 câu trả lời
program ct_btpt;
uses crt;
var a: integer;
begin
clrscr;
write('Nhap a = '); readln(a);
if (a mod 3 = 0) and (a mod 5 = 0) then write(a, ' chia het cho ca 3 va 5') else
write(a, ' khong chia het cho ca 3 va 5');
readln
end.
Program CH;
Uses crt;
Var x: integer;
Begin
Clrscr;
Write('Nhap so nguyen: '); readln(x);
If (x mod 3 = 0) and (x mod 5 = 0) then writeln('Co')
Else writeln('Khong');
Readln
End.
