Вводиться число, которое состоит из 6 цифр. В данном числе выделить каждую цифру и сложить полученные цифры.

program zz1;

var s, n, k:integer; / / задаем переменные целого типа

begin

write (' введите шестизначное заданное число ');

read (n); / / вводим с клавиатуры заданное число

s:=0; / / задаем начальное значение для суммы

while n > 0 do / / организуем цикл, который будет работать, пока в числе есть цифры

begin

k: = n mod 10; / / получаем последнюю цифру

s: = s + k; / / прибавляем ее к сумме

n: = n div 10; / / отбрасываем ее из числа

end;

/ / выводим ответ

writeln (' сумма цифр шестизначного числа = ', s);

end.