Решить задания на языке программирования в Turbo Pascal: 1) Выполните тестирование…

Первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0 (ноль) результат выполненияаб 2 в 457 где 245*ж 02470250202) var s, r: string; i: integer; begin readln (s); r: ='; for i: =1 to length (s) do if s[i] <> 'c' then r: =r+s[i]; writeln (r); end.