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

Question

Информатика

Авдоша

25 декабря, 03:40

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

+1

Ответы (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.