Program Stroki;

Uses Crt;

Var s,k:string;

a:array[1..100] of string;

i,n,j,l:Integer;

f:boolean;

begin

ClrScr;

{Ввод последовательности слов}

Writeln('Введите последовательность слов:');

Readln(s);

{Запись слов в массив a}

for i:=1 to length(s) do begin

if (s[i-1]<>' ') and (s[i]=' ') and (length(k)<>0) then begin

inc(n);

a[n]:=k;

k:='';

end;

if s[i]<>' ' then k:=k+s[i];

if (i=length(s)) and (length(k)<>0) then begin

inc(n);

a[n]:=k;

k:='';

end;

end;

{Проверка на симметричность слов, содержащихся в массиве а}

l:=0;

for i:=1 to n-1 do begin

f:=false;

if a[i]<>a[n] then

if length(a[i]) mod 2 = 0 then begin

for j:=1 to length(a[i]) div 2 do

if a[i][j]<>a[i][length(a[i])+1-j] then f:=true;

if f=False then begin

l:=l+1;

if l=1 then Write('Симметричные слова: ');

Write(a[i],' ');

end;

end;

end;

Writeln;

if l=0 then Writeln('Симметричные слова отсутствуют');

Write('Нажмите Enter');

Readln;

end.

Program Stroki;

Uses Crt;

Var s:string;

i:integer;

begin

ClrScr;

Write('Введите строку символов: ');

Readln(s);

for i:=1 to length(s) do begin

if (s[i-1]='>') and (s[i]='>') then delete(s,i-1,2);

if (s[i-1]='<') and (s[i]='<') then begin

insert('<<',s,i-1);

i:=i+2;

end;

end;

Writeln('Преобразованная строка: ',s);

Write('Нажмите Enter');

Readln;

end.

Program Stroki;

Uses Crt;

Var s1,s2:string;

i:Integer;

k:Real;

f:boolean;

begin

ClrScr;

Writeln('Введите строку символов:');

Readln(s1);

s2:='';

f:=true;

for i:=1 to length(s1) do begin

if s1[i]=' ' then f:=false;

if (s1[i]<>' ') and (f=true) then s2:=s2+s1[i];

end;

Writeln('Выделенная подстрока: ',s2);

Val(s2,k,i);

if i<>0 then Writeln('Выделенная подстрока не содержит числовое значение')

else begin

f:=false;

for i:=1 to length(s2) do

if s2[i]='E' then begin

Write('Число в подстроке вещественного типа, ');

f:=true;

end;

if f=false then Write('Число в подстроке целочисленного типа, ');

if k<0 then Writeln('отрицательное')

else Writeln('положительное')

end;

Write('Для выхода нажмите Enter');

Readln;

end.