Question

Viết chương trình nhập vào một số nguyên n từ bàn phím in ra màn hình .

a ) Số n có chia hết cho 12 không

b ) n có bao nhiêu chữ số

c ) Tổng các chữ số bằng bao nhiêu

Answer 1

Bạn nào bk giúp mình nha :D Có làm rồi nhưng sợ sai

Answer 2

a
n mod 12

b ,c

while n <>0 do
begin

dem:=dem +1;
tong := tong + n mod 10;
n :=n div 10;
end;

Answer 3

uses crt;

var n, a, dem, tong:longint;

begin

clrscr;

write('nhap n:');readln(n);

if n mod 12= 0 then

writeln(n,' chia het cho 12')

else write(n,' khong chia het cho 12');

a:=n;

tong:=0; dem:=0;

while a<>0 do

begin

dem:=dem+1;

tong:=tong+ a mod 10;

a:=a div 10;

end;

writeln(n,' co ',dem,' chu so');

write('tong cac chu so bang:',tong);

readln;

end.

* ở đây mk gán a = n để khi đếm số chữ số ,tính tổng các các chữ số của a cũng là đếm số chữ số ,tính tổng các chữ số của n, để n vẫn giữ nguyên giá trị ban đầu. Bạn cũng có thể dùng chương trình con để giải nhé