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

2 câu trả lời

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.

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.

Câu hỏi trong lớp Xem thêm
4 lượt xem
1 đáp án
20 giờ trước