ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Паскаль АБС
1.Задаётся число n. Затем вводятся n символов В ОДНОЙ СТРОКЕ. Вместо каждого символа с нечетным кодом ASCII вывести предшествующий ему символ, а вместо каждого символа с четным ASCII кодом символ, следующий за ним.
Паскаль АБС
1.Задаётся число n. Затем вводятся n символов В ОДНОЙ СТРОКЕ. Вместо каждого символа с нечетным кодом ASCII вывести предшествующий ему символ, а вместо каждого символа с четным ASCII кодом символ, следующий за ним.
More Questions From This User See All
Answers & Comments
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.