В массиве слов найти пару слов,из которых одно является обращением другого

@SpiresVili · Регистрация: 05.12.2016

Студворк — интернет-сервис помощи студентам

Напишите программу.
В массиве слов найти пару слов,из которых одно является обращением другого.

@Puporev · 16.12.2016, 10:04

Pascal

function revers(s1,s2:string):boolean;
var i:byte;
    s:string;
begin
s:='';
for i:=length(s1)downto 1 do
s:=s+s1[i];
revers:=s2=s;
end;
var a:array[1..20] of string;
    s1,s2:string;
    n,i,j,k:byte;
begin
repeat
write('Введите размер массива от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Введите ',n,' слов для поиска пар обращенных');
for i:=1 to n do
readln(a[i]);
k:=0;
i:=1;
while(i<n)and(k=0) do
 begin
  j:=i+1;
  while(j<=n)and(k=0) do
  if revers(a[i],a[j])then
   begin
    k:=1;
    s1:=a[i];
    s2:=a[j];
   end
  else j:=j+1;
  if k=0 then i:=i+1;
 end;
if k=0 then write('Нет пары обращенных слов')
else
 begin
  writeln('Есть пара обращенных слов, например');
  write(s1,'-',s2);
 end;
end.

@SpiresVili 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 9
		1
	В массиве слов найти пару слов,из которых одно является обращением другого 16.12.2016, 09:42. Показов 3439. Ответов 1 Метки нет (Все метки) Напишите программу. В массиве слов найти пару слов,из которых одно является обращением другого. 0

	16.12.2016, 10:04

Опции темы

В массиве слов найти пару слов,из которых одно является обращением другого

Решение