написать программу в Паскале Строки 1. Дана последовательность, содержащая до 5 слов, в каждом из которых до 5 строчных латинских букв; между соседними словами — не менее одного пробела, за последним словом — точка. Напечатать все слова последовательности, предварительно преобразовав каждое из них по следующему правилу: 1) перенести первую букву в конец слова; 2) если слово нечетной длины, то удалить его среднюю букву.
madinagiraevaM
2
02.07.2020 17:03
1
Другие вопросы по теме Информатика
DixonVeit
26.08.2019 21:10
AngelinaMon1
26.08.2019 21:10
jyljokgorsheni1
26.08.2019 21:10
Deni11111111
26.08.2019 21:10
vlad200883
16.07.2021 10:14
RuslanVil
16.07.2021 10:14
taniabelkova
16.07.2021 11:30
ruan
16.07.2021 11:34
jessikafox
25.04.2020 15:45
Популярные вопросы
- Кто нибудь подскажите фильмы и сериалы про месть главного героя к гл героине,или...
3 - Вкаких полушариях находится объект,если его координаты 55 ю.ш 18 з д 15 б...
1 - Расположите в порядке убывания числа 0.29 0.2 0.08 второе округлите до сотен...
1 - Выписать из сказки маленький принц мудрые мысли...
1 - Какова ваша нравственная оценка национализма ?...
1 - Сказка царевна-лягушка смысл названия!...
2 - Общая сумма коэффициентов в уравнении взаимодействия натрия с концентрированной...
3 - Хотя бы чуть-чуть выберите глагол, соответствующий данному предложению. 14)...
1 - Укажите слова,в которых все звуки являются мягкими: лень,мать,петь,лень,шесть,весна,лето,зелень,печь.вешь....
2 - На одному верстаті треба обробити 90 деталей а на другому- 100 деталей причому...
3
// PascalABC.NET 3.6.3
function Cnv(s: string): string;
begin
var n := s.Length;
if s[n] = '.' then begin
s := s[:n];
Dec(n)
end;
if n <= 1 then Result := s
else
begin
if n.IsOdd then begin
s := s[:n div 2 + 1] + s[n div 2 + 2:];
Dec(n)
end;
Result := s[n] + s[2:n] + s[1]
end
end;
begin
var a := ReadString.ToWords;
a.Select(s -> Cnv(s)).Print
end.
Пример работы: