Question

Решить задания на языке программирования в Turbo Pascal:1) Выполните тестирование программы: опишите как будут меняться значения переменных и что появится на экране в результате выполнения программы. Для переменной S ввести строку - 'аб2в457где245*ж'Program z2;uses crt;var s:string;k,sum,i,n:integer;beginreadln(s);i:=1;repeatval(s[i],n,k);i:=i+2;sum:=sum+n;writeln(n);until i>length(s);writeln(sum);readkey;end.2) Дано предложение. Удалить из него все буквы с.

Answer 1

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 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.