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

Question

Информатика

Коннор

17 ноября, 14:09

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

+2

Ответы (2)

Знаете ответ на вопрос?

Линда · Answer 1

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.

Диловар · Answer 2

Program z1;

var i, a, b, c:integer;

begin

wrireln ('Введите число') ;

readln (a) ;

while a<0 do begin

b:=a mod 10;

a:=a div 10;

write (' ', b) ;

end;

end.