Паскаль абс 1.задаётся число n. затем вводятся n символов в одной строке. вместо каждого символа с нечетным кодом ascii вывести предшествующий ему символ, а вместо каждого символа с четным ascii кодом символ, следующий за ним.

var N,i:integer;

k:char;

s:string;

BEGIN

readln(N);

s:='';

for i:=1 to N do begin

readln(k);

if (ord(k) mod 2<>0) then

s:=s+chr(ord(k)-1) else

s:=s+chr(ord(k)+1);

end;

writeln();

for i:=1 to N do

writeln(s[i]);

end.

Братан конечно у меня могут быть ошибки но получается так:

var

 k,i: integer;

 ch: char;

begin

 i:=0; k:=0;

 while ch<>'*' do

 begin

   inc(i);

   write('Введите ',i,'-й символ:');

   readln(ch);

   if ord(ch) mod 2<>0 then inc(k);

 end;

 writeln('В последовательности ',k,' символов в четным кодом');

 readln;

end.