ПОМОГИТЕ ПОЖАЛУЙСТА!!! Паскаль АБС 1.Задаётся число n. Затем вводятся n символов В ОДНОЙ...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!! Паскаль АБС 1.Задаётся число n. Затем вводятся n символов В ОДНОЙ СТРОКЕ. Вместо каждого символа с нечетным кодом ASCII вывести предшествующий ему символ, а вместо каждого символа с четным ASCII кодом символ, следующий за ним.

Comments

Если считывать в одной строке, пробел считается за символ, и в этом проблема.

---

сделай, как можешь.

---

Ввод в столбик подойдёт?

---

да

Answer 1

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.

Comments

Спасибо!!!

Answer 2

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

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.

Comments

да, есть.

---

у тебя отсутствует переменная н, из за чего программа бесконечна..

---

но за старание спасибо

---

Сорри конечно :(

---

ничего страшного, спасибо за старание)