Определить является ли заданная последовательность символов в строве симметричной.

@dunhill55 · Регистрация: 05.05.2011

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

Лабараторная по строкам.Определить является ли заданная последовательность символов в строке симметричной.

Можно с пояснениями что к чему,если не сложно?Буду благодарен

@Rolion · 25.05.2011, 21:12

Delphi

var
  s:string;
  flag:boolean;
  i:integer;
begin
  flag:=True;
  read(s);
  For i:=1 to Length(s) div 2 do if s[i]<>s[Length(s)-i+1] then flag:=False;
  if flag then write('SIMMETRICHNA')
  else write('NE SIMMETRICHNA');
  readln;readln;
end.

Я даже не знаю, что здесь пояснять, код жутко простой.

@dunhill55 · 25.05.2011, 21:51 **[ТС]**

А текст куда вводить?

@dunhill55 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 11
		1
	Определить является ли заданная последовательность символов в строве симметричной. 25.05.2011, 18:09. Показов 1309. Ответов 2 Метки нет (Все метки) Лабараторная по строкам.Определить является ли заданная последовательность символов в строке симметричной. Можно с пояснениями что к чему,если не сложно?Буду благодарен 0

@dunhill55 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 11
	25.05.2011, 21:51 [ТС]	3
	А текст куда вводить? 0

Определить является ли заданная последовательность символов в строве симметричной.

Решение