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

Question

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

lyababaranik · Answer

program axaxa;var  n,a,s:integer;beginreadln(n);s:=0;while n 0 dobegina:=n mod 10;s:=s+a;n:= n div 10;end;writeln(s);end....