Дано натуральное четырехзначное число n. Найти сумму его цифр.

Question

Информатика

Дуняра

25 июня, 09:57

Дано натуральное четырехзначное число n. Найти сумму его цифр.

+1

Ответы (2)

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

Гремислав · Answer 1

Паскаль же?

var s, x: string; c, n, err, i, d, k:integer;

begin

readln (s) ;

n:=length (s) ;

for i:=1 to n do

begin

d:=d+k;

val (s, k, err) ;

end;

write (d) ;

end.

Станислава · Answer 2

var a, b, c, d, x, res:integer;

begin

readln (x) ;

a:=x div 1000;

b:=x mod 10;

c:=x div 100 mod 10;

d:=x mod 100 div 10;

res:=a+b+c+d;

writeln (res) ;

readln;

end.