OPTADS360
AANETWORK
AMBIENT
YOMEDIA
Banner-Video
IN_IMAGE

Viết chương trình nhập số nguyên dương a kiểm tra số đó có chia hết cho 3 không?

viết chương trình nhập số nguyên dương a kiểm tra số đó có chia hết cho 3 không

giúp mình với :<<<

  bởi thu trang 07/11/2018
ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (3)

  • Program bai1;

    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 , ' k chia het cho 3');
    readln;
    end.

      bởi Trần Nhơn 07/11/2018
    Like (0) Báo cáo sai phạm
  • program ct1;

    ues crt;

    var a:integer;

    begin

    repeat

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

    until a>0;

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

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

    readln;

    end.

    Like (0) Báo cáo sai phạm
  • Nếu rảnh thì tính tổng các chữ số rồi cộng lại. Nếu chia hết cho 3 thì in ra màn hình (Lưu ý: cách này khó và lâu hơn!!)

      bởi Nguyễn Hải Lâm 17/04/2020
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF