Опубликовано 6 лет назад по предмету Информатика от mcgoshanskyi

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

Ответ

Ответ дан supersuperkirip54irs

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. Ответ
  
  Ответ дан mcgoshanskyi
  
  Спасибо!!!
Ответ

Ответ дан zlomshik101

Братан конечно у меня могут быть ошибки но получается так:
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.
1. Ответ
  
  Ответ дан mcgoshanskyi
  
  да, есть.
2. Ответ
  
  Ответ дан mcgoshanskyi
  
  у тебя отсутствует переменная н, из за чего программа бесконечна..
3. Ответ
  
  Ответ дан mcgoshanskyi
  
  но за старание спасибо
4. Ответ
  
  Ответ дан zlomshik101
  
  Сорри конечно :(
5. Ответ
  
  Ответ дан mcgoshanskyi
  
  ничего страшного, спасибо за старание)

Самые новые вопросы

Математика - 6 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 6 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 6 лет назад

Почему япония - лидер по выплавке стали?

Математика - 6 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 6 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.