Олимпиадный тренинг

Задача . 1117


Задача

Темы:
Определите результат выполнения программы.
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.

time 1000 ms
memory 32 Mb
Правила оформления программ и список ошибок при автоматической проверке задач

Статистика успешных решений по компиляторам
Комментарий учителя