Дана строка, в которой нет русских букв. Написать подпрограмму, которая каждое число в строке заменит на сумму цифр числа (под числом понимается последовательность цифр отделенная пробелами или стоящая в конце или начале строки, все числа целые, не отрицательные).

Использовать заголовок:

procedure Zamena(var s: string);

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

var a: array[1..100,1..100] of integer;

i,j,n,min: integer;

begin

  read(n);

  min: =maxint;

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if abs(a[i,j])< abs(min) then min=a[i,j];              

      end;

  for i: = 1 to n do begin

      for j: = 1 to n do begin

          a[i,j]: =a[i,j] + min

          write(a[i,j]);          

      end;

      writeln;

  end;  

end.

var temp: array[1..31] of integer; k,i: integer;

beginfor i: =1 to 31 do readln(temp[i]);

for i: =1 to 31 do 

if a[i]< 0 then inc(k);

writeln(k);

end.