3. Вычислить сумму цифр произвольного целого числа.

Question

Информатика

Яня

4 октября, 14:10

3. Вычислить сумму цифр произвольного целого числа.

+3

Ответы (1)

Знаете ответ на вопрос?

Филонилла · Answer 1

Program n1;

var a: longint;

procedure sumdig (var x: longint) ;

var s:longint;

begin

s:=0;

while (x0) do

begin

s : = s + (x mod 10) ;

x : = x div 10;

end;

writeln ('сумма цифр числа = ', s) ;

end;

begin

writeln ('введите целое число') ;

readln (a) ;

sumdig (a) ;

end.