<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
s:=s.Left(Pos('!',s)-1);
Writeln('Пробелов: ',s.Where(c->c=' ').Count);
Writeln('Буква "ю" в последовательность ',Pos('ю',s)=0?'не ':'',
'входит');
if s.Intersect('шина').Count=4 then
Writeln('Среди символов есть все буквы слова "шина"')
else Writeln('Среди символов нет всех букв слова "шина"');
if s.Matches('но|он').Count>0 then
Writeln('Есть соседствующие буквы "он" или "но"')
else Writeln('Нет соседствующих букв "он" или "но"');
if s.ToCharArray.Pairwise((x,y)->x=y).Count>0 then
Writeln('Есть пара соседствующих одинаковых символов')
else Writeln('Нет пары соседствующих одинаковых символов')
end.
<u>Пример:</u>
Введите строку: наша пища хороша, но не так, чтобы очень. соответственно, мы не очень толсты! как-то так.
Пробелов: 12
Буква "ю" в последовательность не входит
Среди символов есть все буквы слова "шина"
Есть соседствующие буквы "он" или "но"
Есть пара соседствующих одинаковых символов
Ответ .ярлык
як=яр
клык=лык
яр +лык=ярлык
Const n=10; {Можно подставить любое число}
var a:array[1..n] of integer; i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(8)+1; {Массив заполняется числами от 1 до 9}
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (i mod 2)=0 then s:=s+a[i];
writeln(s);
end.
Проект-это особый вид познавательной деятельности учащихся;
Мини-проект-для решения небольшой проблемы,но суть самого метода,его идея должна оставаться неизменной.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,3,-10,10);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow;
Writeln('min=',s.Min,', max=',s.Max)
end.
<u>Пример</u>
*** Исходная матрица ***
-10 -10 -9
-8 -2 -2
-1 -2 -5
-6 6 -5
------------
min=-10, max=6