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