Текст

[Olalya da Silva]

В произвольном тексте(тип: char. Без использования типа string) к каждой согласной добавить еще одну такую же.

[Hollander]

какой язык?

[Sazary]

Для английского алфавита. Если надо русский, несложно добавить.

uses crt;
const m = ['B'..'D','F'..'H','J'..'N','P'..'T','V'..'X','Z'];
var
str : array[1..300] of char;
str2 : array[1..600] of char;
i,k,len : integer;
ch : char;
begin
clrscr;
writeln('Enter string:');
len := 1;
repeat
 ch := readkey;
 write(ch);
 if ch = #13 then break;
 str[len] := ch;
 inc(len);
 until ch = #13;
 writeln;
writeln('--------');
k := 1;
for i:=1 to len do
  begin
  if not (UPCASE(str[i]) in m) then
    begin
    str2[k] := str[i];
    inc(k);
    end
  else
    begin
    str2[k] := str[i];
    str2[k+1] := str[i];
    inc(k,2);
    end;
  end;

for i:=1 to k-2 do
 write(str2[i]);
readln;
end.

Hollander

какой язык?

Так в ветке "Паскаль" же тема

[alex_fcsm]

Sazary я не много поправил

uses crt;
const m = ['B'..'D','F'..'H','J'..'N','P'..'T','V'..'X','Z'];
var
str : array[1..300] of char;
i,k,len : integer;
ch : char;
begin
clrscr;
writeln('Enter string:');
len := 1;
repeat
 ch := readkey;
 if ch<> #13 then write(ch);
 if ch = #13 then break;
 str[len] := ch;
 inc(len);
 until ch = #13;
 writeln;
writeln('--------');
k := 1;
for i:=1 to len-1 do
  begin
  write(str[i]);
  if  (UPCASE(str[i]) in m) then write(str[i])
  end;
readln;
end.

а Hollander спрашивал про язык ввода(я так думаю)

[Hollander]

alex_fcsm прав, я спрашивал про языка ввода. Самое обидное что пока ждал уже наклепал немного, но вижу что уже не надо ))

[Sazary]

Hollander Ну тогда сорри )
alex_fcsm

Sazary я не много поправил

Тогда уж скорее облегчили ) Ведь у вас происходит вывод на экран без изменения самой строки )
Хотя, для данной задачи, скорее всего, большего и не надо..

[capta1n]

program ds;
const
 n = 255;
var
 m : set of char;
 s,sub : array [1..n] of char;
 i,j,k : byte;
begin

 m:=['B'..'Z']+['b'..'z']-['e','E','u','U','i','I','o','O'];
 m:=m+['Ѓ'..'™']+['Ў'..'й']-['e','…','Ё','€','®','O','г','“'];

 i:=0;
 repeat
   inc(i);
   read(s[i])
 until s[i]=#13;
 readln;

 j:=0;
 for k:=1 to i do
 begin
   inc(j);
   sub[j]:=s[k];
   if s[k] in m then
   begin
     inc(j);
     sub[j]:=s[k];
   end
 end;

 for i:=1 to j do write (sub[i]);

 readln

end.

[capta1n]

непонятные символы - это русские буквы