Python:
slovo = str(input())
a = slovo[::-1]
if slovo == a:
print("yes")
else:
print("no")
pascal:
function palindrom(var arg:string):boolean;
var i:byte;
str:string;
begin
palindrom:=false;
str:='';
for i:=length(arg) downto 1 do
str:=str+arg[i];
if str=arg then palindrom:=true; end;
var s:string;
begin readln(s); writeln(Palindrom(s));
readln;
end.
Решение в прикрепленном файле, воспроизвел таблицу только по последним трем столбцам.
формула для вычисления налога: =ЕСЛИ(A2<=1700;A2*0,12;A2*0,2)
формула для вычисления на руки: =A2-B2
формула для вычисления итого: <span>=СУММ(C2:C11)</span>
Математическая модель это формула. Обозначим скорость теплохода Vт, скорость реки Vр, первый участок движения S1, t1, второй участок движения S2, t2. t1=S1/(Vт-Vр), t2=S2/(Vт+Vр) t=t1+t2. Решить уравнение с одним неизвестным...
Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqGen(ReadInteger('n='),1,1,(x,y)->x+y).Println
end.
<u><em>Тестовое решение:</em></u>
n= 10
1 1 2 3 5 8 13 21 34 55