Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
mmakkarova
05.09.2020 09:08 •
Информатика
Составить программу: является ли слово пилигримом
Ответ:
sonyaunicorn1
08.10.2020 10:25
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
if s=s.Reverse.JoinIntoString then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
Пример
шалаш
Это палиндром
0,0
(0 оценок)
Ответ:
morfisleep
08.10.2020 10:25
Var s:string; i:integer; b:boolean;
begin
readln(s);
k:=length(s); b:=true
for i:=1 to k div 2 do if s[ i]<>s[ k-i+1] then b:=false;
writeln(b);
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MrMut222
08.05.2023 13:01
Какие разновидности программного обеспечения имеются на современных компьютерах?...
Sonechka20052005
22.04.2021 20:21
Y=28 mod 4 y2= 28\4 xtve hfdys brcs...
Натали2004абвг
22.04.2021 20:21
Дан произвольный треугольник abc, для которого определен следующий набор характерных параметров: a,b,c - стороны треугольника, альфа, бета, гамма - углы (в градусах), h - высота,...
nermakov
15.03.2023 10:49
Даны x и y , если x для m є (x; y) с шагом δ=0,2 иначе x y, то вычислить произведение положительных значений z=(x-y^2)/2m для m є(y; x) с шагом δm=0,2. сделать программу в с или...
111леся199
15.03.2023 10:49
Найти количество нечетных делителей числа в паскале...
Лаймик0
03.05.2020 13:21
Паскаль () дан двумерный массив в [1..4; 1..2] random [-50; 50] найти среднее арефметическое всех положительных чисел найти: s: =? ; k: =?...
sayhun
19.05.2023 20:43
Напишите программу определения весовой категории в зависимости от веса спортсмена всего существует четыре весовые категории 1) лёгкая-вес спортсмена менее 62 кг 2) средняя -от 62...
Лиза090401
18.05.2022 01:41
Что такое шрифт, абзац, редактирование, буфер обмена, стили и для чего они нужны (главное меню microsoft word)...
Dick666
06.06.2020 19:18
Що може бути розміщено на слайдах комп ютерної презентації! будь ласка,як швидше....
золотесерце
06.06.2020 19:18
Дана программа: program chisla; var a, b, c, d: integer; begin writeln ( введите a: ); readln (a); writeln ( введите b: ); readln (b); c: =sqr(a+b); d: =sqr(a)+sqr(b); writeln (...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
if s=s.Reverse.JoinIntoString then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
Пример
шалаш
Это палиндром
begin
readln(s);
k:=length(s); b:=true
for i:=1 to k div 2 do if s[ i]<>s[ k-i+1] then b:=false;
writeln(b);
readln
end.