строки

[Margosham-k]

1.Составить программу, заменяющие все буквы «а», стоящие в на*чале слова на «А».
2.Написать программу для вычеркивания всех букв «о», стоящих в
слове X на четных местах.
3.Написать программу, которая удаляет в данном тексте все лишние пробелы.
4. Во вводимой строке вычеркнуть из слов первые и последние бук*вы.


буду благодарна за помощь...

[whatever]

3:

//для строки, под текст переделать - две минуты
var
  s:string;
begin
  readln(S);
  while s[1]=' ' do
    delete(s,1,1);
  while s[length(s)]=' ' do
    delete(s,length(s),1);
  while POS('  ',s)<>0 do
    delete(S,pos('  ',s),1);
  writeln(S);
  readln
end.

4:

//предпологаю, что строка начианается со слова, заканчивается словом, знаков препинания нет
var
  s:string;
  i:integer;
begin
  readln(S);
  delete(s,length(s),1);
  i:=length(S);
  while i>=1 do
    begin
      if s[i]=' ' then
        begin
          delete(s,i+1,1);
          delete(s,i-1,1);
          dec(i);
        end;
      dec(i);
    end;
  delete(s,1,1);
  writeln(S);
  readln
end.

1:

var
  s:string;
begin
  readln(S);
  while pos('a',s)<>0 do
    begin
      insert('A',s,pos('a',s));
      delete(s,pos('a',s),1)
    end;
  writeln(S);
  readln
end.

2: В слове Х на четном месте только буква "У", поверь мне, я знаю

[Margosham-k]

ааааа))спасссибки)))
а вторуууую не решите???=))

[whatever]

В первой косячнул, все "а" на "А" заменил
Правильно вот так:

var
  s:string;
  i:integer;
begin
  readln(S);
  if s[1]='a' then
    begin
      delete(s,1,1);
      insert('A',s,1);
    end;
  for i:=length(S) downto 2 do
    if (s[i]='a')and(s[i-1]=' ')then
      begin
        delete(s,i,1);
        insert('A',s,i);
      end;
  writeln(S);
  readln
end.

Что до второй, то я не понимаю, что нужно сделать. Что за слово Х ?

[BDA]

whatever, если вам поможет, то слово X="хорошо" -> "хрш"

[whatever]

Сообщение от BDA

whatever, если вам поможет, то слово X="хорошо" -> "хрш"

Не, это слово на Х, что имеет несколько иной смысл.

Я прочитал "в слове икс", что можно понять как "в пятом\третьем\десятом слове":

var
  s,wrd:string;
  i,X:integer;
begin
  readln(S);
  readln(X);
  i:=1;
  while (x>1) and (i<length(S)) do
    begin
      if s[i]=' ' then
        dec(X);
      inc(i);
    end;
  if x>1 then
    begin
      writeln('нет слова с таким номером');
      readln;
      HALT;
    end;
  wrd:='';
  while (s[i]<>' ') and (i<=length(S)) do
    begin
      wrd:=wrd+s[i];
      inc(i);
    end;
  i:=2;
  x:=pos(wrd,s);
  delete(s,x,length(wrd));
  while i<=length(wrd) do
    begin
      if wrd[i]='o' then
        begin
          delete(wrd,i,1);
          i:=i+1;
        end
      else
        i:=i+2;
    end;
  insert(wrd,s,x);
  writeln(S);
  readln;
end.

Кстати, в пользу моей догадки говорит тот факт, что в задании "слово" в единственном числе.

[BDA]

whatever, я неудачно привел пример.
Я также имел ввиду, что есть какое-либо слово Х, с которым нужно произвести некие действия (нужно было написать "молоко" ).

[Margosham-k]

=)) Здесь смысл таковой:
я ввожу любую строку и если в строке буква "о" стоит на четных местах в словах, то ее нужно удалить.
Например:
хорошо молоко как оно

Результат:
хрш ммлк как оно

[Margosham-k]

ну вот,решила....фуф))) спасибо за помощь!!!!

uses crt;
var s:string;
    i,n:integer;
begin
writeln('Enter string: ');
readln(s);
for i:=1 to length(s) do
 
 if (s[i]='o') and (not(odd(i))) then  delete(s,i,1);
writeln(s);
readln;
end.