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

Задача: 

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

Программа на языке Паскаль: 

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.

Комментарии

Похожая задача

Найти сумму первой и последней цифр любого целого положительного числа.

var
        a, b, sum, n: longint;
begin
        readln(n);
 
        a := n mod 10; // последняя цифра 
        n := n div 10;
        while n > 0 do begin
                b := n mod 10;
                n := n div 10;
        end;
 
        writeln(a+b);
readln;
end.

Более компактное решение:

Program SumPP;
var a: longint;
      b: byte;
 
begin
write('Введите значение ?: ');
readln(a);
a := abs (a);
b := a mod 10;
while a >= 10 do a := a div 10;
writeln('Сумма первой и последней цифры А равна ', b+a);
end.

Еще одно решение:

program n1;
uses crt;
var a,b,c,d:integer;
begin
writeln('введите число');
readln(a);
d:=a mod 10;
repeat
 b:=a mod 10;
 a:=a div 10;
until a=0;
c:=d+b;
writeln('сумма первой и последней цифры равна: ',c);
end.

Начала программирования

Огромное спасибо, от "чайника", решившего впитать азы программирования. Веду информатику в основной школе(1+2 часа). Ваши разработки помогут при включении задач на программирование при знакомстве ребят с основами алгоритмизации в 9 классе. Задачи описаны четко, практико ориентированы, это ребятам будет интересно.