var s: string; k, sum, d, i: integer; begin sum:= 0; s:= '12r345ty'; for i:= 1 to length(s) do begin val(s[i], d, k); if k = 0 then sum:= sum + d end; writeln(sum: 6) end.
1000 ms 32 Mb Правила оформления программ и список ошибок при автоматической проверке задач