Введите семизначное натуральное число. Выведите все его цифры в прямом порядке ** экран....

Question

Введите семизначное натуральное число. Выведите все его цифры в прямом порядке на экран. Использовать циклический алгоритм. Пример:1234567. Цифры :1,2,3,4,5,6,7.

Answer 1

Program z1;
var i,a,b,c:integer;
begin
wrireln('Введите число');
readln(a);
while a<0 do begin<br>b:=a mod 10;
a:=a div 10;
write(' ',b);
end;
end.

Answer 2

Var i,a,b,c:integer;
begin
write('Введите семизначное натуральное число: ');
readln(a);
c:=1000000;
write('Цифры: ');
while a>a mod 10 do begin
b:=a div c;
a:=a mod c;
c:=c div 10;
write(b,', ')
end;
write(a,'.')
end.