viết chương trình nhập số nguyên dương x từ bàn phím in ra màn hình kết quả có chia hết cho 2,3 không?
viết chương trình nhập số nguyên dương x từ bàn phím in ra màn hình kết quả có chia hết cho 2,3 không?
By Caroline
By Caroline
viết chương trình nhập số nguyên dương x từ bàn phím in ra màn hình kết quả có chia hết cho 2,3 không?
uses crt;
var x:integer;
begin
clrscr;
write(‘Nhap x: ‘);readln(x);
if (x mod 2=0) and (x mod 3=0) then writeln(‘So nay chia het cho ca 2,3’) else
if x mod 2=0 then writeln(‘So nay chia het cho 2’) else
if x mod 3=0 then writeln(‘So nay chia het cho 3’);
readln
end.