viết ct nhập vào số nguyên n. đếm các chữ số của n

0 bình luận về “viết ct nhập vào số nguyên n. đếm các chữ số của n”

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

   Bình luận

2. uses crt;
   var n,i,d : longint;
   st : string;
   begin clrscr; d:=0;
   write(‘Nhap so nguyen n :’); readln(n);
   str(n,st);
   for i:=1 to length(st) do d:=d+1;
   write(‘Cac chu so cua n la:’, d);
   readln
   end.

   Bình luận