// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var a:=ArrRandom(11,5,45).Println;
var x:= a.where(t -> t.IsEven).sum;
Writeln('Сумма четных элементов: ', x);
end.
2)
begin
var a:= ArrGen(5, t -> ReadReal).Println;
a:= a.Select(t ->t/3).ToArray.Println;
end.
// PascalABC.NET 3.3
begin
var z:=ArrRandom(10,-50,50); z.Println;
var r:=z.Where(x->x>0).ToArray+z.Where(x->x<0).ToArray;
r.Println;
end.
Пример:
-46 42 -26 -23 8 50 -9 46 -50 0
42 8 50 46 -46 -26 -23 -9 -50
Var x,y: real;
begin
write('Введите координаты точки х и у:');
readln(x,y);
if abs(y)<=1 then
if (1<=x) and (x<=5) then
writeln('Да, принадлежит')
else writeln('Нет, не принадлежит')
<span>end.</span>
Байт - 8 бит, делим на разряды по 8.
11010011
00011100
11010011
00011100
01010111
5 последовательностей из которых 3 различны.
Ответ 3