ПОМОГИТЕ ПОЖАЛУЙСТА) дан исходный текст

ПОМОГИТЕ ПОЖАЛУЙСТА) дан исходный текст. Проверить является ли он перевертышем. (читается туда и обратно одинаково, например КОМОК). x- исходныйтекст, у- текст в обратном порядке. Вывести на кран, «является перевертышем» или «не является перевертышем» .

в избранное

s_s0k0l0v

31 марта 2023

var s: string; {функция проверки на палиндром}function palind (s: string): boolean; var i: integer; fl: boolean; begin fl: =true; for i: =1 to length (s) div 2 do if s[i]<>s[length (s) -i+1] then fl: =false; Result: =flend; {основная программа}begin writeln ('Введите строку… '); readln (s); if palind (s) then writeln ('Данная строка является палиндромом! ') else writeln ('Данная строка НЕ является палиндромом! ') end. Без функции: vars: string; i: integer; palin: boolean; {основная программа}begin writeln ('Введите строку… '); readln (s); fl: =true; for i: =1 to length (s) div 2 do if s[i]<>s[length (s) -i+1] then fl: =false; if palin then writeln ('Данная строка является палиндромом! ') else writeln ('Данная строка НЕ является палиндромом! ') end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?