Напишите функцию, которая определяет сумму цифр переданного ей числа, в системе паскаль

Question

Информатика

Арсеньюшка

2 декабря, 00:05

Напишите функцию, которая определяет сумму цифр переданного ей числа, в системе паскаль

+3

Ответы (1)

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

Ненила · Answer 1

program axaxa;

var n, a, s:integer;

begin

readln (n) ;

s:=0;

while n>0 do

begin

a:=n mod 10;

s:=s+a;

n: = n div 10;

end;

writeln (s) ;

end.