Строки

[Antonio_getscool]

Дана строка изобр. Целое положит число вывести сумму цифр этого числа

[fenix-elite]

Блин я с вас в шоке. Вы вообще думать умеете?

program ololo;
var
s:string;
num,code,i,sum:integer;
begin
readln(s);
for i:=1 to length(s) do begin
 val(s[i],num,code);
  if code<>0 then
   break
   else
   sum:=sum+num;
 end;
 writeln(sum);
 readln;
end.

[Himka]

Какой язык программирования?

[Rusat]

Где наработки?! Ничего же нет и зачем таким людям решение писать. Пускай платят за решение или же пускай думают сидят часами и изучают основы программирования.