Вопрос по информатике:
Паскаль.
Дана строка, состоящая из латинских букв. Последовательность подряд идущих букв образует слово. Между соседними словам - один пробел.
а) Напечатать текст, составленный из последних букв всех слов
б) напечатать эту же последовательность слов, удалив из нее слова-палиндромы (читающиеся одинаково слева на право и с право на лева)
- 03.09.2018 04:16
- Информатика
- remove_red_eye 4805
- thumb_up 50
Ответы и объяснения 1
var
s: string;
begin
readln(s); //s := 'Привет дорогой мир шалаш кроет';
write('a) ');
foreach s1: string in s.Split(' ') do
write(s1.last());
write(#13 + 'b) ');
foreach s1: string in s.Split(' ') do
begin
var b: boolean := true;
var i: byte := 1;
while (i <= length(s1) / 2) and b do
begin
b := (s1[i] = s1[length(s1) - i + 1]);
Inc(i);
end;
if (not b) then
write(s1, ' ');
end;
end.
- 04.09.2018 20:23
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.