<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var adelim:=' .,;:!?-'.ToCharArray;
var s:=ReadlnString;
Writeln(25*'- ');
var c:=ReadlnChar('Буква для поиска слов:'); Writeln(25*'- ');
var ww:=s.ToWords(adelim).Where(w->w.First=c);
foreach var w in ww do begin
var i:=Pos(w,s);
Delete(s,i,w.Length); Insert(w.Inverse,s,i)
end;
s.Println; Writeln(25*'- ');
Writeln('Предложений всего: ',s.ToWords('.').Count)
end.
Var a,b,c,d,e:integer;
begin
read(a,b,c,d,e);
write(a+b+c+d+e);
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var y:=ReadReal('Введите неотрицательное число:');
var x:=Sqrt(y);
Writeln('Корень из этого числа: ',x)
end.
Функция Foo() принимает указатели на 2 массива (я так понял, что это нужно по заданию), а там уже вызывается функция, которой передаётся указатель только на 1 массив.
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('n=');
Writeln(1.To((n+10) div 2).JoinIntoString('')[n]);
end.