tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Определить сколько слов в
Определить сколько слов в строке является палиндромом (читаются одинаково как слева направо, так и справа налево). в основной программе написать подпрограмму, определяющую является ли слово палиндромом.
EvaGRNV
1 31.07.2019 08:00
0
Ответы
0123220210
28.09.2020 13:42
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False);
begin
var s:=ReadlnString('>');
Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count)
end.
Тестовое решение
> мадам ваш заказ уже несут - слышу топот официанта
Палиндромов: 3
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Vanya1407
11.11.2020 15:22
Ща8к83у8шкшкащащащшукшшкаш...
Lubimka01
11.11.2020 15:22
. Сколькими можно разместить на полке 5 книг? 10. Ольга помнит, что телефон подруги оканчивается цифрами 5, 7, 8, но забыла, в каком порядке эти цифры следуют. Укажите...
L1O2N3D4O5N
11.11.2020 15:21
Сколькими можно выбрать гласную и согласную буквы из слова «ЗДАНИЕ»?...
JesperWecksell
11.07.2019 21:10
Написать программу на языке паскаль, напишите программу, использующую модуль, в котором описаны 2 процедуры: первая вычисляет факториал введенного числа, вторая – сумму...
kazan20001202
11.07.2019 21:10
Вычислите сумму данных n натуральных чисел. входные данные вводится число n, а затем n чисел, сумму которых необходимо вычислить. выходные данные выведите единственное...
Elena9909
04.09.2020 21:25
В целях сохранения информации на жесткие магнитные диски необходимо оберегать от: 1) понижении температуры 2) перепадов атмосферного давления 3) света 4) ударов при установке...
aslanovvadim
03.03.2020 21:01
Сравни настольный компью..с обычным рабоч.столом.Запиши в тетр. похожие и отличительные черты в соответствующие части кругов....
semabulov
03.03.2020 19:21
Даны три числа. Верно ли, произведение этих чисел является числом, оканчивающимся на 4....
goldshell
03.03.2020 19:23
Определите результат работы функции входном значении, равном 123456:function qq(x: integer):integer;var i, s: integer;begins:=0;while x 0 do begins:= 10*s + x mod 10;x:=...
Xa4Men771
03.03.2020 19:35
Задача если ребенку меньше 3 лет, то 100% минимальной заработной платы, от 3 до 7 лет 80%, от 7 до 14 60%, после 14 лет пособия нет...
Популярные вопросы
. wie heißen die kleidungsstücke? Ordne die Buchstaben und ergänze...
3
В первом и втором ящиках 39 кг, во втором и третьем ящиках 41 первом...
2
3. Точечные заряды находятся в вакууме на некотором расстоянии друг...
3
Биологи 7 класс зделать Сор...
2
Написать программу к задачам кто шарит и не шарит...
3
-тапсырма. Өнер саласындағы мамандықтарды сызба түрінде көрсет, өз...
1
Площадь основания прямоугольного параллелепипеда 63 см квадратных,...
1
Хімія фізичні та хімічні явища...
2
Отакие на вопросы Отметь предметы которые имеют шероховатую поверхность1....
2
Дайте визначення понять «оригінал», «переклад», «переспів», що їх...
1
function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False);
begin
var s:=ReadlnString('>');
Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count)
end.
Тестовое решение
> мадам ваш заказ уже несут - слышу топот официанта
Палиндромов: 3