Question

Viết chương trình nhập vào số tự nhiên n, in ra các chữ số của nó.

Input : 1234

Output: 1 2 3 4

Answer 1

Program HOC24;

var n: integer;

begin

write('Nhap N: '); readln(n);

while n<>0 do

begin

write(n mod 10,' ');

n:=n div 10;

end;

readln

end.