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 Lyla
By Lyla
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?
program kaito;
uses crt;
var x: integer;
begin
clrscr;
write(‘Nhap x: ‘); readln(x);
if (x mod 2 =0) and (x mod 3 = 0) then begin
writeln(x,’ chia het cho 2 va 3′);
end;
readln
end.
CHÚC BẠN HỌC TỐT!!!
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’) else
writeln(‘Khong chia het cho 2 va 3’);
readln
end.