<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов
var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку
Writeln(s) // вывод...
end.
<u>Пояснения.</u>
a - массив с индексами от 0 до n-1, где n - число слов.
Срез a[:2] возвращает последовательность элементов массива 0 и 1.
Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при помощи JoinIntoString.
<u>Пример</u>
А роза упала на лапу Азора
А роза на лапу Азора
Дана последовательность чисел 0, 0, 1, 1, 2, 4, 7, 3, 4, 4 … , каждый элемент этой последовательности, начиная с четвёртого раве
NoriGloria [245]
Ответ будет 7.
Если интересно то вот код программы с помощью которого можно найти значение для любого элемента последовательности.
Вместо 1400 вводишь номер элемента
int a = 0, b = 0, c = 1, d = 1;
for (double i = 1; i <= 1400-3; i++ ) {
d = (c + b + a)%10;
a = b;
b = c;
c = d;<span>
Console.WriteLine(d);
}</span>
Потому что емкость на носителе <span>CD-R очень мала, если на данный носитель записать фильм, то он будет показывать, но в плохом качестве, т. к. произойдет сильное сжатие.</span>
решением неравенста является множество {4 5 6 7}
его мощность равна 4
1)2
2)4
3)4
4)1
5) 2
оказывается необходимо минимум 20 символом поэтому пишу этот комментарий.
