Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 17.05.2014
Сообщений: 9
1

Выяснить, все ли согласные буквы слова Х, стоящие на четных местах, различны

03.06.2014, 21:02. Просмотров 1936. Ответов 1
Метки нет (Все метки)

Пожалуйста помогите мне составить программу, завтра экзамен, а у меня ничего не получается... Спасибо большое заранее)

Составьте программу, выясняющую, все ли согласные буквы слова Х, стоящие на четных местах, различны.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2014, 21:02
Ответы с готовыми решениями:

Выяснить, все ли согласные буквы слова Х, стоящие на четных местах, различны
Помогите, пожалуйста, написать программу на c# с пояснениями, если не сложно

Выяснить, все ли согласные буквы слова Х, стоящие на четных местах, различны
Ошибся в заголовке не согласные, а все. Помогите, пожалуйста! Заранее спасибо, если не сложно с...

Выяснить, все ли буквы слова Х, стоящие на нечетных местах, различны
Задание 2 Выяснить, все ли буквы слова Х, стоящие на нечетных местах, различны.

Выяснить, все ли буквы слова Х, стоящие на нечетных местах, различны
Задание 2 Выяснить, все ли буквы слова Х, стоящие на нечетных местах, различны. (помогите с...

1
Эксперт Pascal/Delphi
6372 / 4309 / 4634
Регистрация: 05.06.2014
Сообщений: 21,047
05.06.2014, 17:39 2
Лучший ответ Сообщение было отмечено Вера как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Const
  C=['К','к','П','п','С','с','Т','т','Ф','ф','Х','х','Ц','ц','Ч','ч','Ш','ш','Щ','щ'
     ,'М','м','Н','н','Г','г','З','з','В','в','Р','р','Л','л','Д','д'
     ,'Ж','ж','Б','б'];
Var
  Q:Set of Char;
  X:String;
  ch:char;
  i:Integer;
  YesOrNo:boolean;
Begin
  Q:=[];
  YesOrNo:=true;
  Write('Введите исходное слово: ');
  Readln(X);
  For i:=2 to Length(X) do
    if (not odd(i)) and (X[i] in c) then
      begin
        if x[i] in q then
          YesOrNo:=false
        else
          Q:=Q+[X[i]];
      end;
  if YesOrNo then
    writeln('Все согласные буквы слова Х, стоящие на четных местах различные.')
  else
    writeln('Нет, не все согласные буквы слова Х, стоящие на четных местах различные.');
  Readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2014, 17:39

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

Выясните, все ли буквы слова Х, стоящие на нечетных местах, различны
Здраствуйте Уважаемые форумчане, скажите почему у меня при компилировании программы, не выводит...

Все ли гласные буквы слова Х, стоящие на нечетных местах, различны
Составьте программу, выясняющую, все ли гласные буквы слова Х, стоящие на нечетных местах, различны.

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

Вычеркните из слова Х все буквы, стоящие на четных местах
Вычеркните из слова Х все буквы, стоящие на четных местах string n,...


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

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

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