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

@Вера · Регистрация: 17.05.2014

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

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

@ZX Spectrum-128 · 05.06.2014, 17:39

Pascal

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 / 0 / 0 Регистрация: 17.05.2014 Сообщений: 9
		1
	Выяснить, все ли согласные буквы слова Х, стоящие на четных местах, различны 03.06.2014, 21:02. Просмотров 1936. Ответов 1 Метки нет (Все метки) Пожалуйста помогите мне составить программу, завтра экзамен, а у меня ничего не получается... Спасибо большое заранее) Составьте программу, выясняющую, все ли согласные буквы слова Х, стоящие на четных местах, различны. 0

Опции темы

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

Решение