лаба горит по free pasckalю

[Strag_king]

Задание 1. Задано слово – последовательность произвольных
символов. Составьте программу для решения следующей задачи: Удалить все буквы с четными номерами.

Задание 2. Дана символьная строка. Слово – последовательность
символов между пробелами, не содержащая пробелы внутри себя. Составьте
программу для решения следующей задачи: Расположите слова данного предложения в порядке возрастания числа
букв в словах.:confuse d:

[Mad_Cat]

1)

for i:= n downto i do
if (not odd(i)) and (s[i] in ['a'..'z']) then delete(s,i,1);

для полного кода и для кода 2 задачки контакты ниже:

[Alex11223]

1.как-то так (если это строка)

for i:=length(s) downto 1 do
           if i mod 2 = 0 then
               Delete(s,i,1);

upd: упс, удаляет любой символ, а не только буквы.

[Mad_Cat]

Alex11223
А теперь читаем условие

Задано слово – последовательность произвольных
символов. Составьте программу для решения следующей задачи: Удалить все буквы с четными номерами.

[Strag_king]

А как будет выглядить вся прога со строками просто я эту тему вообще не понимаю

[Alex11223]

как будет выглядить

Oбъявление переменных;
begin
Ввод строки; 
Удаление букв с помощью цикла из 1 сообщения; 
Bывод строки;
end.

[Strag_king]

Пасиб)) а со вторым не поможешь???

[rus12]

2 вроде так

type  slov= array [1..10] of  string;
var p,b:string;
s:slov;
i,j,l:integer;
procedure maxdl(ii,jj:integer;ss:slov;var ll:integer);
  var t:integer;
  m:string;
  begin
    m:=ss[ii];
    ll:=ii;
    for t:= ii+1 to jj  do
     if length(m)>length(ss[t])  then
     begin
       m:=ss[t];
       ll:=t;
     end;
  end;
  begin
  write ('text p=');
  readln(p);
  j:=1;
  for i := 1 to length(p) do
  begin
    b:=p[i];
  if b=' ' then j:=j+1
       else s[j]:=s[j]+b;
  end;
  b:= ' ' ;
  for i := 1 to j do
    begin
      maxdl(i,j,s,l);
      b:=s[i];
      s[i]:=s[l];
      s[l]:=b;
    end;
   for I := 1 to j do
     write (s[i],' ');
   readln;
  end.