// 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.
Var s1,s2 : String;
Begin
Readln(s1);
Readln(s2);
While (Length(s1)>0) and (Length(s2)>0) do
Begin
Delete(s1,1,1);
Delete(s2,1,1);
end;
Writeln(s1+s2);
end.
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
256 цветов кодируются 8мью битами 2 ^ 8 =256
Ответ: 10 * 10 * 8 = 800 бит
3 поле x Т.к Собрали меньше всех.
То есть первое поле это x-C
А третье поле это X-(B-C)
Со всех полей x+(x-c)+(x-(b-c)<u>)</u>
x+(x-c)+(x-(b-c)<u>)</u> Это сложение <em><u>всех</u></em> полей