Предмет: Информатика,
автор: mcgoshanskyi
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Паскаль АБС
1.Задаётся число n. Затем вводятся n символов В ОДНОЙ СТРОКЕ. Вместо каждого символа с нечетным кодом ASCII вывести предшествующий ему символ, а вместо каждого символа с четным ASCII кодом символ, следующий за ним.
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.
Автор ответа:
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.
Похожие вопросы
Предмет: Немецкий язык,
автор: Tarik3235552
Предмет: Физика,
автор: gdasha0806
Предмет: Английский язык,
автор: goldboybrawlstarspx
Предмет: Алгебра,
автор: Сеня542
Предмет: Алгебра,
автор: юля10021