Question

!!!СРОЧНО!!!ДАЮ 70 БАЛЛОВ!!!Найдите сумму цифр пятизначного числа !!!PASCAL ABC!!!СРОЧНО!!!

Answer 1

var

 num, sum, digit: Integer;

begin

 Write('Enter a five-digit number: ');

 ReadLn(num);

 

 sum := 0;

 while num > 0 do

 begin

   digit := num mod 10;

   sum := sum + digit;

   num := num div 10;

 end;

 

 Writeln('Sum of the digits: ', sum);

end.

Answer 2

Ответ:

n:=abs(n);

While n>0 do

Begin

  s:=s+n mod 10;

  n:=n div 10;

End;

Объяснение:

Лучше использовать цикл