Предмет: Информатика, автор: Марго1234567

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

Ответы

Автор ответа: Formalka
0

Паскаль же?

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.

Автор ответа: bolela
0

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.

 

Похожие вопросы
Предмет: Русский язык, автор: Аноним