// 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.
5 чисел ето 14,13,12,11,10.
Начальные координаты обозначешь за х и у
составляешь систему:
х+7(-1-2+4)=1
у+7(2+2-5)=1
получается, что
х=-6
у=8
это и есть начальные координаты
Если Кб это килобиты, то
1/32 / 1024 = 1024 / 32 бит = 32 бита
Var n,i:integer;
Begin
Read(n);
I:=0;
While n>0 do begin
I:=i*n;
Dec(n);
End;
Writeln(i);
End.