0 / 0 / 0
Регистрация: 29.05.2018
Сообщений: 4
1

Введённую с клавиатуры строку А записать в строку В: четные позиции сохранить, нечетные переставить в обратном порядке

29.05.2018, 15:45. Показов 1108. Ответов 1
Метки нет (Все метки)

Введённую с клавиатуры строку А записать в строку В: четные позиции сохранить, нечетные переставить в обратном порядке. Строку В вывести на экран.
Не могу понять, где допущена ошибка. Ввожу привет, а вместо еривпт выводит иревпт.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program zadanie_4_2_9;
var
  a,b:string;
  i,n:integer;
  x:char;
  begin
  writeln ('Введённую с клавиатуры строку А записать в строку В: четные позиции сохранить, нечетные переставить в обратном порядке. Строку В вывести на экран.');
  writeln ('Введите строку A');
  readln (a);
  b:='';
  for i := 1 to length(a) div 2 do 
  if i mod 2 <> 0 then
  begin
   x:=a[i];
    a[i]:=a[i+2];
    a[i+2]:=x;
    end;
    write('Измененная строка: ',a);
    writeln;
     insert(a,b,i);
     writeln('B = ',b);
    readln;
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2018, 15:45
Ответы с готовыми решениями:

В матрице строку с наибольшей суммой элементов записать в обратном порядке
для произвольной матрицы строку с наибольшей суммой элементов записать в обратном порядке. Матрица...

Зашифровать введённую с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвёртым и т.д. Провести дешифровку
Зашифровать введённую с клавиатуры строку, поменяв местами первый символ со вторым, третий с...

Введенную с клавиатуры строку A записать в обратном порядке в строку B. Строку B вывести на экран
Помогите решить от и до))

Введенную с клавиатуры строку A записать в обратном порядке в строку B. Строку B вывести на экран.
Введенную с клавиатуры строку A записать в обратном порядке в строку B. Строку B вывести на экран....

1
5020 / 2607 / 2332
Регистрация: 10.12.2014
Сообщений: 9,928
30.05.2018, 08:38 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a, b : String; i, last : Integer;
begin
  a := ReadLn(a);
  b := '';
  last := Length(a); if odd(last) then inc(last);
  for i := 1 to Length(a) do
    if odd(i) then
      b := b + a[last-i]
    else
      b := b + a[i];
  WriteLn(b);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2018, 08:38
Помогаю со студенческими работами здесь

Преобразовать число в строку записать строку в обратном порядке
Дано шестизначное натуральное число. Преобразовать его в строку. Записать полученную строку в...

Заполнить одномерный массив целыми числами. Переставить в обратном порядке все четные по значениям элементы
Заполнить одномерный массив из N элементов целыми числами. Переставить в обратном порядке все...

Переставить в обратном порядке все четные по значениям элементы массива и выделить их при выводе зеленым цветом
Заполнить одномерный массив из N элементов целыми числами. Переставить в обратном порядке все...

Введенную с клавиатуры строку A записать в обратном порядке в строку B. Строку B вывести на экран
Введенную с клавиатуры строку A записать в обратном порядке в строку B. Строку B вывести на экран.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru