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