Напишите программу паскаль Ввод: 1234
Вывод:
1
2
3
4

Предыдущий
вопрос Следующий
вопрос

program SplitNumbers;

var
num, remainder: Integer;

begin
writeln('Введите число:');
readln(num);

while num <> 0 do
begin
remainder := num mod 10;
writeln(remainder);
num := num div 10;
end;
end.