Код:
for i:=2 to n-1 do if (a[i-1]<a[i]) and (a[i]>a[i+1]) then writeln(i,<span>' element');
(Источник:</span><span>http://www.programmersforum.ru)
</span>
<span>var n:integer;
begin
write('n = ');
readln(n);
if abs(n) div 100 = abs(n) mod 10
then writeln('Перевертыш') else writeln('Не перевертыш');
end<span>.
Пример:
</span><span>n = 121
Перевертыш</span></span>
168 в 10 = <span>250 в 8
</span>241 в 10 = <span>361 в 8
</span>
ИНФОРМАТИКА - ЦСКРОТЯМЦФЯ
КОД - ФРЫ
КОМПЬЮТЕР - ФРТПГБМЪО