Предмет: Информатика, автор: mcgoshanskyi

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


supersuperkirip54irs: Если считывать в одной строке, пробел считается за символ, и в этом проблема.
mcgoshanskyi: сделай, как можешь.
supersuperkirip54irs: Ввод в столбик подойдёт?
mcgoshanskyi: да

Ответы

Автор ответа: supersuperkirip54irs
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.


mcgoshanskyi: Спасибо!!!
Автор ответа: zlomshik101
1

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

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.


mcgoshanskyi: да, есть.
mcgoshanskyi: у тебя отсутствует переменная н, из за чего программа бесконечна..
mcgoshanskyi: но за старание спасибо
zlomshik101: Сорри конечно :(
mcgoshanskyi: ничего страшного, спасибо за старание)
Похожие вопросы
Предмет: Алгебра, автор: юля10021