// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку Writeln(s) // вывод... end.
Пояснения. a - массив с индексами от 0 до n-1, где n - число слов. Срез a[:2] возвращает последовательность элементов массива 0 и 1. Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при
Пример А роза упала на лапу Азора А роза на лапу Азора
uses graphabc;
var x,y,i,n,k,x0,y0: integer;
begin
setwindowsize(640, 480);
setpenwidth(3);
line(10, 240, 630, 240);
line(320, 10, 320, 470);
line(620, 235, 630, 240);
line(620, 245, 630, 240);
line(315, 20, 320, 10);
line(325, 20, 320, 10);
n: =10;
for i: =1 to 61 do begin
line(o+i*n, 243, o+i*n, 237);
end;
for i: =1 to 46 da begin
line(317,20 +i*n, 323,20+i*n);
end;
x0: =320;
y0: =240;
k: =50;
for x: =-320 to 320 do
begin
y: =truns(k*sin(x/k);
putpixel(x0+x, y0-y, clred);
end;
textout (50,40; grafic y=sinx');
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов
var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку
Writeln(s) // вывод...
end.
Пояснения.
a - массив с индексами от 0 до n-1, где n - число слов.
Срез a[:2] возвращает последовательность элементов массива 0 и 1.
Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при
Пример
А роза упала на лапу Азора
А роза на лапу Азора