Ввести четырехзначное целое число и определить яявляется ли число перевертышем( такими например являются числа 6666 и 3223

Pascal  abcvar x: integer; beginwriteln ('введите четырёхзначное число'); readln(x); if (x div 1000 < > 0) and (x div 10000 = 0) then beginif ((x div 100)=(x mod 100)) or div 1000)=(x mod 10)) and div 100) mod 10)=((x mod 100) div thenwriteln ('является перевёртышем') elsewriteln ('не является перевёртышем'); end else writeln ('неверный ввод'); end.

Ипочему все считают, что указывать языки - не царское ну ладно, вот на pascalabc.net: var   n: integer; begin   readln(n);   writeln((n mod 10) * 1000 + (n div 10 mod 10) * 100 + (n div 100 mod 10) * 10 + (n div 1000) * 1 = n ? 'yes'  : 'no'); end.

Клавиши клавиатуры, в зависимости от их назначения и расположения, можно поделить на группы: -алфавитно-цифровые; -функциональные; -блок дополнительных клавиш (цифровая панель); -клавиши курсором; -служебные (клавиши ). -алфавитно-цифровые клавиши. назначение: ввод букв, цифр, знаков препинания и других специальных знаков. в эту категорию также относится клавиша space (пробел). -функциональные клавиши сюда относят клавиши f1-f12. за данными клавишами нет постоянных закрепленных функций (исключением является только клавиша f1, которая используется для получения справки). эти клавиши, как правило, программируются уже пользователем для каждой программы отдельно. -блок дополнительных клавиш (цифровая панель) повторяют действие цифровых и некоторых знаковых клавиш основной панели даная панель может использоваться в двух режимах: * ввода цифр; * курсором. переключения режимов осуществляется клавишей num lock -клавиши курсором курсор — экранный указатель, который показывает место ввода следующего символа (для текста) или текущую позицию (точку), к которой будет применяться действие мыши. клавиши со стрелками служат для перемещения курсора на одну позицию по экрану монитора в соответствии с направлением. клавиши pageup и pagedown3  переводят курсор на одну страницу вверх и вниз соответственно, а клавиши home и end переводят курсор в начало и конец текущей строки. клавиша insert переключает режима ввода данных: вставка и замена ( в режиме вставки новые знаки вводятся без замены существующих символов, а в режиме замены — заменяют). клавиша delete удаляет знаки, которые находятся справа от текущего положения курсора, а клавиша backspace удаляет знаки, которые находятся слева от текущего положения курсора.

Ответ: "о" программирование п о р м и о а и иаоимроп и о м о омои о о оо о function strevers(st : string) : string; begin   if length(st)> 1 then strevers: =st[length(st)]+strevers(copy(st,2,length(st)-2))+st[1]     else strevers: =st; end; function del2(st : string) : string; begin   if length(st)> 0 then del2: =st[1]+del2(copy(st,3,length(st)-2)) else del2: =''; end; var   s : string; begin   s: ='программирование';   while length(s)> 1 do s: =strevers(del2(s));   writeln(s); end.