Viết chương trình tách số n theo chiều từ trái sang phải pascal

0 bình luận về “Viết chương trình tách số n theo chiều từ trái sang phải pascal”

1. Lâu mình chưa code pascal, sai lỗi nhỏ xin thông cảm 🙂

   Var n : Integer, 

          Pow: Integer;

   BEGIN

       Readln(n);

       Pow := 1;

       While pow <= n do Pow := Pow * 10;

       Pow := Pow div 10;

       While (Pow > 0)

       Begin

             Writeln(n div Pow, ‘ ‘);

             n := n mod Pow;

             Pow := Pow div 10;

       End;

   END.

   Bình luận

2. Cách khá bựa :V

   program xau;
   uses crt;
   var n:string;
       i:integer;
   begin
       clrscr;
       write(‘Nhap so n: ‘); readln(n);
       for i:=1 to length(n) do writeln(n[i]);

        readln;
   end.

   Bình luận