Предмет: Информатика,
автор: Марго1234567
Дано натуральное четырехзначное число n. Найти сумму его цифр.
Ответы
Автор ответа:
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.
Автор ответа:
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.
Похожие вопросы
Предмет: Алгебра,
автор: adeajka144
Предмет: Русский язык,
автор: Аноним
Предмет: Биология,
автор: batyrhankusainov08
Предмет: Геометрия,
автор: tesla