<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>
А роза упала на лапу Азора
А роза на лапу Азора
var a,b,t:longint;
begin
readln(a,b);
if(a<b) then a:=a*5 else if (b<a) then begin t:=a; a:=b; b:=t; end;
writeln('a = ',a);
writeln('b = ', b);
end.
Телефон - аппарат для аудиосвязи между абонентами.
Планшет - доска на ремне, может быть в кожухе, к которой цепляются документы, карты и т. п. для удобства полевой работы с ними.
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(100, 1, 100).toList;
Println(A);
a := a.Sorted.toList;
a := a.Pairwise().Where(x -> x.Item1 = x.Item2).Select(x -> x.Item1).toList;
a := a.Distinct.toList;
Println(A);
end.
var a:array [1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(6)+1;
writeln(a);
for i:=1 to 12 do a[i]:=a[i]*2;
writeln(a)
end.
