Вводиться число, которое состоит из 6 цифр. В данном числе выделить каждую цифру и сложить полученные цифры.

1

Ответы и объяснения

2014-01-22T12:45:14+00:00
Program test;
var i,sum:integer;s:string;
begin
readln(s);
for i:=1 to length(s) do sum:=sum+StrtoInt(s[i]);
writeln('Сумма чисел = ',sum);
end.