Консультация № 136858
14.05.2008, 21:58
0.00 руб.
0 1 1
Уважаемые эксперты!)помогите пожалуйста решить задачу:заданы М строк символов, которые вводятся с клавиатуры. Каждая строка представляет собой слово. Напечатать те из них которые являются перевертышами. Например: abba.
Спасибо!)

Обсуждение

давно
Профессор
401888
1232
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.
Форма ответа