SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
uses
crt;
const
sep = '.,!?:;() ';
var
F: text;
str,word: string;
procedure myprint(s: string);
var
s_revers : string;
i : integer;
begin
s_revers := '';
for i:=length(s) downto 1 do
s_revers := s_revers + s[i];
if s_revers=s {PALINDROM!} then
textcolor(RED)
else
if s[1] = s[length(s)] then
textcolor(BLUE);
write(s);
textcolor(White);
end;
var
c: char;
i: integer;
begin
textcolor(White);
str := '';
assign(F,'input.txt');
reset(F);
while not eof(F) do
begin
read(F,c);
str := str + c;
end;
close(F);
word := '';
for i := 1 to length(str) do
begin
if pos(str[i],sep) > 0 then
begin
if word <> '' then
myprint(word);
word := '';
write(str[i]);
end
else
word := word + str[i];
end;
readln;
end.
|
|
