Написать программу, которая запрашивает слово и проверяет, является ли это слово палиндромом. pascal abc
251
386
Ответы на вопрос:
var
s: string;
function invert(s: string): string;
var
i: integer;
t: string;
begin
t : = '';
for i : = 1 to length(s) do
t : = s[i] + t;
invert : = t;
end;
begin
write('введите слово: ');
readln(s);
s : = trim(s);
s : = uppercase(s);
if invert(s) = s then
writeln('палиндром')
else
writeln('не палиндром');
end.
Var s: string; i,n: byte; p: boolean; begin write('введите слово: '); readln(s); n: =length(s); p: =true; for i: =1 to n div 2 do if s[i]< > s[n-i+1] then begin p: =false; break end; if p then writeln('палиндром') else writeln('не палиндром') end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
eledzheev22.11.2022 21:44
-
popovat49622.03.2023 19:28
-
dmitrii120515.01.2023 22:08
-
дир228.06.2022 01:43
-
Отличница84617.02.2020 06:21
-
odin232322.02.2020 02:13
-
DragonSeeS11.06.2020 16:27
-
kvastalkerr12.10.2021 06:31
-
sirkovake26.09.2021 00:15
-
BabyTaya07.12.2021 13:59
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.