1.Nhập 1 số nguyên đếm chữ số đó 2.Viết pt nhập các số từ 1 đến 10 nằm trên 1, dòng

0 bình luận về “1.Nhập 1 số nguyên đếm chữ số đó 2.Viết pt nhập các số từ 1 đến 10 nằm trên 1, dòng”

1. 1.

   uses crt;
   var n,d:longint;
   begin
   clrscr;
      write(‘Nhap 1 so:’);readln(n);
      while n<>0 Do 
         begin
           inc(d);
           n:=n div 10;
         end;
      writeln(‘n co ‘,d,’ chu so’);
   readln;
   end. 

   2.

   uses crt;
   var n,i:longint;
   begin
   clrscr;
      write(‘Nhap so chu so muon nhap:’);readln(n);
      for i:=1 to n do 
         begin 
            read(n);
            if i mod 10=0 then writeln;
         end; 
   readln;
   end. 

   Bình luận

2. Bài 1:

   program dem_chuso;

   uses crt;

   var n:longint;

         d:byte;

   begin

          clrscr;

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

          d:=0;

          while n>0 do

                 begin

                        d:=d+1;

                        n:=n div 10;

                 end;

          write(‘Co ‘,d,’ chu so’);

          readln;

   end.

   Bài 2:

   program inso;

   uses crt;

   var n,i:integer;

   begin

          clrscr;

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

          for i:=1 to n do

                 begin

                        write(i,’ ‘);

                        if i mod 10=0 then writeln;

                 end;

          readln;

   end.

   Bình luận