Используя подпрограмму-функцию написать алгоритм решения задачи: Написать функцию, которая находит сумму цифр целого числа.

Question

Информатика

Ангелика

1 июля, 00:44

Используя подпрограмму-функцию написать алгоритм решения задачи: Написать функцию, которая находит сумму цифр целого числа.

+4

Ответы (1)

Знаете ответ?

Трифена · Answer 1

Function sumd (n: integer) : integer;

var s: integer;

begin

s:=0;

while n>0 do

begin

s:=s+n mod 10;

n:=n div 10;

end;

sumd:=s;

end;

/ / основная программа

var n: integer;

begin

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

writeln ('сумма цифр: ', sumd (n)) ;

end.