tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу: является
Составить программу: является ли слово пилигримом
ez0lotareva
2 22.09.2019 20:00
0
Ответы
POLINAFLY
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.
Пример
шалаш
Это палиндром
ПОКАЗАТЬ ОТВЕТЫ
Shanmao
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sofapravdina
02.08.2019 23:20
Нужен реферат о microsoft word не меньше чем на два листа! )...
ledigalina1974
02.08.2019 23:20
Город расположен на 22 островах, между некоторыми островами построены мосты. известно, что если выбрать любые 21 островов, то можно обойти их один за другим, побывав на каждом...
avokebest
02.08.2019 23:20
Визначте довжину двійкого коду слова із 24 символів у кодуванні unicode. іть будь-ласка рішити...
MariaVay000
07.05.2021 13:11
Посчитайте, сколько битов и байтов информации содержится в вашем имени.Анастасия...
66666666ak
14.01.2021 10:12
Запишите на языке Паскаль следующие условия...
Andruha321
14.01.2021 10:12
Необходимо покрасить стены кухни. Сколько потребуется банок краски, если известно, что:размеры кухни 405 x 310 x 285 см,88% площади стен занимает кафельная плитка;1 банка краски...
даша2336
06.04.2020 05:38
Массив С заполняется случайными целыми числами от 60 до 100. Выберите правильный вариант основной команды цикла.Ребяяятт...
Печенька1701
06.04.2020 05:44
Написать решение Программ в ПАСКАЛЕ 1. Дан круг радиуса R. Если радиус больше 10, найти площадь круга, иначе вывести радиус без изменений. 2. Даны координаты двух точек на числовом...
angelinochka345
25.11.2021 06:51
4класс, 2часть, Русский язык, страница34, упражнения4...
irna200
25.11.2021 06:51
Завтра КР по алгебре а я незнаю ответы оч надо! От 1.Знайти суму многочленів а) 3х 2 - 2х + 5 і 8х 2 - 7х – 26 б) 7х 3 - 12х 2 + 15 і 8х 2 - 16х 3 – 14 2.Спростити вираз а)...
Популярные вопросы
Минусы развития капиталистических отношений в казахстане ...
3
Упр 432 нужно дать характеристику ...
2
Написать реакцию горения следуйщих веществ. ...
2
А) здоровье (И), здоровья (Р), здоровью (Д), здоровья (В), здор здоровье...
3
Https://video.ibm.com/channel/SEepjWcxchU https://video.ibm.com/recorded/125847528...
2
Пружинный маятник массой 400г. Совершает 180 колебаний за 3 мин. Опередите...
3
( ) Треугольник MNP =? , угол P =? , угол M=? , угол K=110°, найдите все...
3
Морфологический разбор ПрозраченПредложение Воздух чист и прозрачен...
3
Почему ты делаешь ограниченный доступ к ответу?...
2
Высчитать молярную массу веществ: хлорид натрия, нитрат калия, фосфат лития,...
1
Внимание! Если программа не работает, обновите версию!
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.