Cho biết số trang sách của 1 quyển sách Hãy tìm số lượng các chữ số dùng để đánh số trang của quyển sách đó

0 bình luận về “Cho biết số trang sách của 1 quyển sách Hãy tìm số lượng các chữ số dùng để đánh số trang của quyển sách đó”

1. var n:longint;

         s,k:integer;

   begin

   write(‘Nhap so trang sach: ‘); readln(n);

   for i:= 1 to n do

   begin

   str(i,k);

   s:=s+k;

   k:=”;

   end;

   write(‘So chu so la: ‘,length(s));

   readln;

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var S,k: Ansistring;
       n,i: longint;
   Begin
           Clrscr;
           Write(‘Nhap so trang: ‘); Readln(n);
           S:=”;
           For i:=1 to n do
           Begin
                   Str(i,k);
                   S:=S+k;
           End;

           Write(‘So luong: ‘,length(S));
           Readln
   End.

   Bình luận