Вопрос по информатике:
ПОМОООООООООООООООООООООГИТЕ
ПРОООООООООООООООООШУУУУУУУУУУУУУУУУУУУУ
ПАСКАЛЬ.
Пожаловаться
- 13.07.2016 09:43
- Информатика
- remove_red_eye 16692
- thumb_up 20
Ответы и объяснения 1
Предполагается, что пробелы учитывать не надо
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Вводите:').Where(c->c' ').JoinIntoString('');
if s=s.Inverse then Writeln('Перевёртыш')
else Writeln('Не перевёртыш');
end.
Решение
Вводите: АРГЕНТИНА МАНИТ НЕГРА
Перевёртыш
Вводите: А РОЗА УПАЛА НА ЛАПУ АЗОРА
Перевёртыш
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Вводите:').Where(c->c' ').JoinIntoString('');
if s=s.Inverse then Writeln('Перевёртыш')
else Writeln('Не перевёртыш');
end.
Решение
Вводите: АРГЕНТИНА МАНИТ НЕГРА
Перевёртыш
Вводите: А РОЗА УПАЛА НА ЛАПУ АЗОРА
Перевёртыш
Пожаловаться
- 14.07.2016 10:51
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы