Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 14.11.2019
Сообщений: 26
1

Дано слово, все символы стоящие на нечётных местах заменить символом "=", а на чётных местах символом ":"

06.12.2019, 18:37. Показов 2182. Ответов 4
Метки нет (Все метки)

Дано слово, все символы стоящие на нечётных местах заменить символом "=", а на чётных местах символом ":".
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2019, 18:37
Ответы с готовыми решениями:

Дано предложение. Все его символы, стоящие на четных местах, заменить на букву "Ы"
Дано предложение,Все его символы,стоящие на четных местах,заменить на букву Ы

Дано предложение. Все его символы, стоящие на четных местах, заменить буквой "ы"
Решить на C# Дано предложение. Все его символы, стоящие на четных местах, заменить буквой ы.

Все символы строки, стоящие на четных местах, заменить на букву "ы"
Дано предложение. Все его символы, состоящие на четных местах заменить на букву ы #include...

Дано предложение, удалить из него все буквы "о" стоящие на нечетных местах
Помогите написать программа, на допуск к зачету нужно... спасибо... Дано предложение, удалить из...

4
Модератор
63406 / 47088 / 32457
Регистрация: 18.05.2008
Сообщений: 114,136
06.12.2019, 18:38 2
Pascal
1
2
for i:=1 to length(s) do
if odd(i) then s[i]:='=' else s[i]:=':';
0
0 / 0 / 0
Регистрация: 14.11.2019
Сообщений: 26
06.12.2019, 18:43  [ТС] 3
Не работает
0
Модератор
63406 / 47088 / 32457
Регистрация: 18.05.2008
Сообщений: 114,136
06.12.2019, 18:44 4
Так это же не программа, а лишь строки как заменить символы.
0
2349 / 757 / 553
Регистрация: 15.01.2019
Сообщений: 2,348
06.12.2019, 19:56 5
Лучший ответ Сообщение было отмечено Lumonn как решение

Решение

Puporev, может быть так сделать? Дополнительное условие позволяет игнорировать пробелы, если слово будет введено с пробелами.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program Project1;
var
  i: integer; {Вспомогательная переменная для организации цикла.}
  s: string;  {Переменная для хранения строки}
 
begin
  writeln('Введите слово:');
  Readln(s);
  for i:= 1 to length(s) do
    if (s[i] <> ' ') then
      if (odd(i)) then
        s[i]:= '='
      else
        s[i]:=':';
  writeln(s);
  Readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2019, 19:56

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дано предложение. Удалить из него все буквы "о", стоящие на нечётных местах
дано предложение.Удалить из него все буквы о ,стоящие на нечётных местах

Дано предложение. Вывести столбиком все его буквы "и", стоящие на четных местах
Дано предложение. Вывести столбиком все его буквы &quot;и&quot;, стоящие на четных местах.

Вычеркните из слова все буквы "ш" и "щ", стоящие на четных местах
Вычеркните из слова все буквы &quot;ш&quot; и &quot;щ&quot;, стоящие на четных местах

Вычеркните из слова Х все буквы "ш" и "л", стоящие на чётных местах
Вычеркните из слова Х все буквы &quot;ш&quot; и &quot;л&quot;, стоящие на чётных местах.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.