Question

Помогите пожалуйста решить задачу по информатике 10 класс Дано натуральное число п. Определить: сумму цифр в числе

Answer 1

Program prog;
Uses crt;

var n,s: integer;

begin
clrscr;

write('n = ');
readln(n);

repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;

writeln;
writeln('S = ', abs(s));
readln;
end.