Строковый тип данных.

[Paul Oakenfold]

Составить программы:
№1.
а) из слова "НУМЕРАЦИЯ" составить слова: "МЕРА", "РАЦИЯ", "РАНЕЦ";
б) из слов: "ТРОН", "СОСТАВ", "МАК" получает слово "СТРОКА";
в) заменяет в тексте, заданному с клавиатуры, буквы "К" на пробелы.
№2.
Составьте программу, которая определит, сколько слов во введённом предложении начинается с той же буквы, которой закончилось предыдущее слово.
Пример: МАМА МЫЛА АНТОНОВКУ.
Ответ: 1.

[Warnes]

№1

Кажись тут поможет только "быдло-кодинг" тожишь что-то вроде Line[1]=CharTipe Line[1]=Line[3] Line[3]=CharTipe и т.д.

[Warnes]

№2

Паскаль не стоит,так что код может быть немного не верен.

var
  Line:string;
  Iteration,Num:integer;
  Word:char;
begin
  Num:=0;
  WriteLn('Read Line');
  Readln(Line);
    for Iteration:=1 to Length(Line) do
      begin
        if Line[Iteration]<>' ' then
          Word:=Line[iteration]
        else
          begin
            if Word=Line[Iteration+1] then
              inc(Num);
          end;
       end;
  Writeln(Num);
  readln;
end.