Pascal
Ввести целое число и найти сумму его цифр
Написать цикл со счетчиком

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

program SumOfDigits;

var
num, digit, sum: integer;

begin
sum := 0;

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

while num <> 0 do
begin
digit := num mod 10;
sum := sum + digit;
num := num div 10;
end;

writeln('Сумма цифр числа: ', sum);
end.

{Пример:
Input: 123
Output: 6
}