Срочно нужна помощь: три относительно простые программки

[maladoy]

имхо зарегистрироваться надо!!!!

[Sazary]

имхо зарегистрироваться надо!!!!

+1
проблема в этом

[Tevet]

ясно, зарегаюсь...оплатим труд людей, судя по всему полезное дело делают )

это уже крайняя наглость, но это от безысходноси, так что прошу меня простить..прога для задания №3 не компилится, рою сам, но пока туплю..

var s,a,b,pol:string;
i,j:integer;
begin
i:=-1;
readln(s);
while(i<length(s))do
begin while (copy(s,i,1<>' ')) do begin
i:=i+1;
a:=a+copy(s,i,1); end;
for j:=0 to length(a)-1 do b:=b+copy(length(a)-1-j);
if(a=b) then if (length(a)>length(pol) then pol:=a;
a:='';
b:='';
i:=i+1;
end;
writeln(pol);
end.

[Sazary]

Tevet
Запутался немного.. В общем, решил переписать )
Про палиндромы:

uses crt;
var s,a,b,p : string;
i,j,len : integer;
begin
clrscr;
readln(s);
i:=1;
p := '';
while i<=length(s) do
  begin
  a := '';
  b := '';
  if s[i] = ' ' then
    begin
    inc(i);
    continue;
    end;
  len := length(s);
  while (s[i]<>' ') and (i<=len) do
   begin
   a := a + s[i];
   inc(i);
   end;
   len := length(a);
  for j:=1 to len do
   b := b + a[len-j+1];

  if a = b then
    if len>length(p) then p := a;

  end;
  writeln;
 writeln(p);
readln;
end.

[Tevet]

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

Tevet
Запутался немного.. В общем, решил переписать )
Про палиндромы:

uses crt;
var s,a,b,p : string;
i,j,len : integer;
begin
clrscr;
readln(s);
i:=1;
p := '';
while i<=length(s) do
  begin
  a := '';
  b := '';
  if s[i] = ' ' then
    begin
    inc(i);
    continue;
    end;
  len := length(s);
  while (s[i]<>' ') and (i<=len) do
   begin
   a := a + s[i];
   inc(i);
   end;
   len := length(a);
  for j:=1 to len do
   b := b + a[len-j+1];

  if a = b then
    if len>length(p) then p := a;

  end;
  writeln;
 writeln(p);
readln;
end.

спасибо )))))))