Консультация № 138687
30.05.2008, 14:49
0.00 руб.
0 1 1
Уважаемые эксперты,пмогите пожалуйста решть следующее:
Заданы М строк символов,которые вводятся с клавиатуры.Каждая строка представляет собой слово.Напечатать те из них,которые являются перевертышами.
Спасибо большое!)

Обсуждение

давно
Профессор
401888
1232
01.06.2008, 08:41
общий
это ответ
Здравствуйте, Igor lukashov!
Решение задачи в приложении.

Приложение:
uses crt;var s:array[1..50]of string; st:string; i,m,k,j:integer;beginclrscr;write(‘m=‘);readln(m);for i:=1 to m do begin readln(s[i]); {вводим слова} end;writeln;writeln(‘Palindromy:‘);st:=‘‘; k:=0;for i:=1 to m do begin {если слово с конца читается также, как и с начала - перевертыш} for j:=length(s[i])downto 1 do st:=st+s[i][j]; if st=s[i] then begin k:=k+1; {считаем} writeln(st);{выводим} end; st:=‘‘; {обнуляем строку - буфер} end;if k=0 then writeln(‘Takih slov net!‘);{если нет сообщаем}readlnend.
Форма ответа