#minh gửi code pascal nhá 
#nếu không hiểu có thể cmt cho mình nhá 
#nhớ vote cho mình 5 sao và tym , ctlhn nhá 
#code pascal 

Bài 1.

Uses crt;
Var i,n,dem:longint;
Begin
ClrScr;
dem:=0;
Write('Nhap so nguyen n : ');
ReadLn(n);
while n>0 Do
Begin
n := n div 10;
dem:=dem+1;
end;
write('chu so co ' , dem,' chu');
Readln
End.

Bài 2.

Uses crt;
Var i,n,k,sum:longint;
Begin
ClrScr;
sum:=0;
Write('Nhap so nguyen n : ');
ReadLn(n);
while n>0 Do
Begin
k:=n mod 10;
n := n div 10;
sum:=sum+k;
end;
write('tong chu so : ',sum);
Readln
End.

Bài 3.

uses crt;
var n,k,l,sum : integer;
begin
clrscr;
sum:=0;
write('nhap n : ');
readln(n);
k:=n;
while k>0 do
begin
l:=k mod 10;
sum:=sum*10+l;
k:=k div 10;
end;
if sum=n then 
write('la so doi')
else
write('khong la so doi');
readln
end.