Вычеркнуть из слова Y те согласные буквы, которые используются в слове X

@,Cherry · Регистрация: 11.04.2012

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток

Очень прошу мне помочь в составлении следующей программы
Составить программу , вычеркивающую из слова Y те согласные буквы, которые используются в слове X.
Заранее спасибо

@КонецСвета · 11.04.2012, 21:18

Pascal

uses crt;
const alf=['A'..'Z','a'..'z','А'..'Я','а'..'я'];
      gl=['Ё','У','Е','Ы','А','О','Э','Я','И','Ю',
          'ё','у','е','ы','а','о','э','я','и','ю',
          'E','Y','U','I','O','A',
          'e','y','u','i','o','a'];
      sg=alf-gl;
var x,y: string;
    i,l: byte;
begin
write('x=');readln(x);
write('y=');readln(y);
i:=1; l:=length(y);
while i<=l do
      begin
      if (pos(y[i],x)<>0) and (y[i] in sg) then
         begin
         delete(y,i,1);
         l:=l-1;
         end else inc(i);
      end;
write('y=',y);
readkey
end.

@,Cherry 0 / 0 / 0 Регистрация: 11.04.2012 Сообщений: 8
		1
	Вычеркнуть из слова Y те согласные буквы, которые используются в слове X 11.04.2012, 21:02. Показов 1233. Ответов 1 Метки нет (Все метки) Всем доброго времени суток Очень прошу мне помочь в составлении следующей программы Составить программу , вычеркивающую из слова Y те согласные буквы, которые используются в слове X. Заранее спасибо 0

	11.04.2012, 21:18

Опции темы

Вычеркнуть из слова Y те согласные буквы, которые используются в слове X

Решение