Var
A:longint;
S:integer;
Begin
Write(Введите целое число: );Read(A);
S:=0;
A:=Abs(A);
Repeat
S:=S+A mod 10;
A:=A div 10;
Until A = 0;
Write(Сумма цифр числа: ,S);
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.