Viết chương trình nhập vào một số nguyên dương N (N<= 15000), kiểm tra và in ra màn hình +Số N có chia hết cho 4 ? +N có bao nhiêu chữ số ? +Tổng các chữ số của N là bao nhiêu ? +Số đảo ngược của N ?
Viết chương trình nhập vào một số nguyên dương N (N<= 15000), kiểm tra và in ra màn hình +Số N có chia hết cho 4 ? +N có bao nhiêu chữ số ? +Tổng các chữ số của N là bao nhiêu ? +Số đảo ngược của N ?
program baigiai;
uses crt;
var n,i,m,k,d,t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
if n mod 4=0 then writeln(n,’ chia het cho 4′)
else writeln(n,’ khong chia het cho 4′);
d:=0; t:=0;
m:=n; k:=0;
while m>0 do
begin
d:=d+1;
t:=t+m mod 10;
k:=k*10+m mod 10;
m:=m div 10;
end;
writeln(n,’ co ‘,d,’ chu so’);
writeln(‘Tong cac chu so cua ‘,n,’ la: ‘,t);
write(‘So dao nguoc cua ‘,n,’ la: ‘,k);
readln
end.
uses crt;
var n,i,tg,dem,s: integer;
begin
clrscr;
dem:=0;
s:=0;
dn:=0;
write (‘nhap n: ‘); readln(n);
tg:=n;
if n mod 4=0 then writeln (‘n chia het cho 4’);
if n mod 4<>0 then writeln (‘n ko chia het cho 4’);
while tg>0 do
begin
dem:=dem+1;
s:=s+m mod 10;
dn:=dn*10+m mod 10;
tg:=tg div 10;
end;
writeln(‘n co ‘,dem,’ chu so’);
writeln(‘tong cac chu so cua n la: ‘,s);
write(‘n dao nguoc la: ‘,dn);
readln;
end.