самый распространенный пример,- это михаил ломоносов. из простого деревенского мальчика превратился в великого ученого, вхожего во дворцы королей и имеющего свою собственную еще владимир ильич ульянов- ленин. который поставил себе цель свергнуть власть буржуев и добился этого. он поднял огромную массу малоимущих людей и добился своего.это сильная личность, которую до сих пор боится власть есть еще великий путешественник америго- веспучи который достиг берегов америки самым первым. но он не попробовал ее освоить.поэтому признали ее открывателем христофора а в современном мире если возненавидеть людей, то станешь членом правительства целой страны, а если любить людей, то честным руковолителем благотворительного все остальное просто работа для выживания и в угоду кого-то. правда прибавились еще просторы интернета, но они под контролем.
самый распространенный пример,- это михаил ломоносов. из простого деревенского мальчика превратился в великого ученого, вхожего во дворцы королей и имеющего свою собственную еще владимир ильич ульянов- ленин. который поставил себе цель свергнуть власть буржуев и добился этого. он поднял огромную массу малоимущих людей и добился своего.это сильная личность, которую до сих пор боится власть есть еще великий путешественник америго- веспучи который достиг берегов америки самым первым. но он не попробовал ее освоить.поэтому признали ее открывателем христофора а в современном мире если возненавидеть людей, то станешь членом правительства целой страны, а если любить людей, то честным руковолителем благотворительного все остальное просто работа для выживания и в угоду кого-то. правда прибавились еще просторы интернета, но они под контролем.
System.Collections.Generic;
function reverse(const s: String): String;
begin
if Length(s) = 1 then reverse := s else
reverse := s[Length(s)] + reverse(Copy(s, 1, Length(s) - 1));
end;
var
lst: List<string> := new List<string>();
s, s1: string;
begin
writeln('Конец последовательности - пустая строка');
while (true) do
begin
readln(s);
if (s.Length = 0) then
break
else
lst.Add(s);
end;
writeln();
foreach s in lst do
begin
if ((s <> lst.Last()) and (s = reverse(s))) then
writeln(s);
end;
end.