Извлечение цифр числа

Задача

Определить из каких цифр состоит число

Решение

 

var
    n:integer;
begin
    write('Type integer: ');
    readln(n);
    if n<0 then
        n:=-n; // уничтожение знака числа 
    repeat
        writeln(n mod 10); // вывод последней цифры числа
        n:= n div 10; // удаление последней цифры числа
    until n=0;
readln
end.

 

Тема

Циклы

Уровень

Простые задачи