Решить на языке программирования в turbo pascal: 1) выполните тестирование программы: опишите как будут меняться значения переменных и что появится на экране в результате выполнения программы. для переменной s ввести строку -
'аб2в457где245*ж' program z2; uses crt; var s: string; k,sum,i,n: integer; begin readln(s); i: =1; repeat val(s[i],n,k); i: =i+2; sum: =sum+n; writeln(n); until i> length(s); writeln(sum); readkey; end. 2) дано предложение. удалить из него все буквы с.
первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)
результат выполнения
аб2в457где245*ж
0
2
4
7
0
2
5
0
20
2)
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.