15.05.2008, 20:16
общий
это ответ
Здравствуйте, Igor lukashov!
Решение задачи с пояснениями в приложении.
Приложение:
uses crt;const m=5; {можно больше}var s:array[1..m]of string;{массив строк} i,n,j,k:integer;begin;clrscr;for i:=1 to m doreadln(s[i]); {вводим слова}writeln;writeln(‘Palindromy:‘);for i:=1 to m do begin n:=length(s[i]);k:=0; for j:=1 to n div 2 do {от начала до середины слова} if s[i][j]=s[i][n-j+1] then {если симметричные буквы равны} begin k:=k+1; {считаем} end; if k=n div 2 then {если все пары равны, выводим на печать} writeln(s[i]); end;readlnend.