Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 17.05.2011
Сообщений: 12
1

Есть ли в слове "x" буква "б". Если есть, заменить последнюю из них на букву "а"

17.05.2011, 10:45. Показов 1594. Ответов 2
Метки нет (Все метки)

составьте программу, проверяющую есть ли в слове "x" буква "б". Если есть замените последнюю из них на букву "а"
0

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

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

Проверьте, есть ли в слове Х буква "б". Если есть, замените последнюю из них на букву "а"
Проверьте, есть ли в слове Х буква "б". Если есть, замените последнюю из них на букву "а".

Напишите программу, выясняющую, есть ли в слове X буква "к", и, если есть, то замените все буквы "а" в этом слове на "с"
Напишите программу, выясняющую, есть ли в слове X буква "к", и, если есть, то замените все буквы...

Напишите программу для проверки, есть ли в слове X буква "о". Если есть, то замените все буквы "о" на "ку"
ребятки, очень прошу помогите!!))) вот такую штуку надо сделать в паскале, а я не очень в этом...

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

2
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
17.05.2011, 11:05 2
Лучший ответ Сообщение было отмечено sevda как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// составьте программу, проверяющую есть ли в слове "x" буква "б".
// Если есть замените последнюю из них на букву "а"
// ABC
var
  s: string;
  i: integer;
begin
  readln(s);
  i:= length(s);
  while (i>0) and (s[i]<>'б') do
    dec(i);
  if i>0 then
    s[i] :='а';
  writeln(s);
end.
0
20 / 20 / 10
Регистрация: 16.05.2011
Сообщений: 161
17.05.2011, 11:07 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
   s: string;
   i: integer;
begin
   writeln('Vvedite slovo');
   readln(s);
   for i:=length(s) downto 1 do
      if (s[i]=chr(161)) then
      begin
         s[i]:=chr(160);
         break;
      end;
   write(s);
end.
161 - код буквы 'б', 160 - 'а'.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2011, 11:07

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

Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет"
Составить програму, которая б после каждой буквы &quot;е&quot; в данном слове дописывала букву &quot;о&quot; и меняла...

Напишите программу, проверяющую, есть ли в слове X буква "к", стоящая на чётных местах перед буквой "и"
Напишите программу, проверяющую, есть ли в слове X буква &quot;к&quot;, стоящая на чётных местах перед буквой...

Напишите программу, выясняющую, есть ли в слове X буква "a", стоящая на нечётном месте после буквы "к"
Напишите программу, выясняющую, есть ли в слове X буква &quot;a&quot;, стоящая на нечётном месте после буквы...

Замена букв в слове X все буквы "a" на сочетание "ку", а букву "к" на букву "б"
Составить программу, которая меняет в слове X все буквы &quot;a&quot; на сочетание &quot;ку&quot;, а букву &quot;к&quot; на букву...


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

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

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