Question

Напишите, пожалуйста, программу, которая выводит на экран цифры натурального числа, каждую на новой строчке(Используя цикл с заданным условием окончания работы).

Answer 1

Ответ:

program z1;

var a: integer;

begin

write ('a = ');

readln(a);

repeat

writeln (a mod 10);

a:=a div 10

until a = 0

end.