Напишите программу, которая считает сумму цифр введённого числа. Входные данные
Входная строка содержит одно натуральное число.

Выходные данные
Программа должна вывести сумму цифр введённого числа.

Компьютерные технологии всё глубже проникают во все сферы человеческой деятельности. Информатизация и компьютеризация требуют от людей новых навыков, новых знаний и нового мышления, призванных обеспечить адаптацию к условиям и реалиям компьютеризированного общества и обеспечить ему достойное место в этом обществе. Поэтому нельзя не согласиться с У. Мартином в том, что информатизация оказывает влияние на образ и качество жизни всех членов общества как на индивидуальном, так и на организационном уровне, на рабочем месте и в быту. Хорошо это или плохо, но она, пишет автор, представляет собой силу, которая не просто трансформирует жизнь целых сообществ, но перестройке самого «контекста отношений между людьми».

Объяснение:

Program Task;
Const N = 5;
Var a: Array [1..N] of LongInt;
    i: Integer;
Function MinDigit(number: LongInt): Integer;
Var digits: Array of Integer;
    num, min, i: Integer;
Begin
    num := number;
While num <> 0 Do
Begin
    num := num Div 10;
    i := i + 1;
End;
    SetLength(digits, i);
    num := number;
For i := 0 To Length(digits) - 1 Do
Begin
    digits[i] := num Mod 10;
    num := num Div 10;End;
For i := 0 To Length(digits) - 1 Do
    If digits[i] < digits[min] Then
    min := i;    Result := digits[min];
End;
Begin
    WriteLn('Введите ', N, ' целых чисел через пробел');
    For i := 1 To N Do
        Read(a[i]);
    For i := 1 To N Do
        Write(MinDigit(a[i]), ' ');
End.