Дано натуральное число n. чему равно сумма его цифр?

Question

Информатика

Феодотия

28 октября, 06:46

Дано натуральное число n. чему равно сумма его цифр?

+2

Ответы (1)

Знаете ответ на вопрос?

Донара · Answer 1

Program sumcifr;

uses crt;

var

n: longint;

s: integer;

j:integer;

begin

clrscr;

s:=0; j:=0;

write ('ввести число - - > ') ; readln (n) ;

while n>0 do begin j:=j+1;

s:=s+n mod 10;

n:=n div 10;

end;

writeln ('число цифр числа = ', j) ;

writeln ('сумма цифр числа = ', s) ;

readln;

end.