Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray;
a.Println;
var b:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray;
b.Println;
var c:=a.Zip(b,(p,q)->(p+q)/2).ToArray; c.Println
end.
<u>Пример</u>
-8.4 -8.3 -0.1 -6.3 9.4
3.3 -7.4 -1.4 9.5 9.6
-2.55 -7.85 -0.75 1.6 9.5
Впиши в поисковик из одной системы счисления в другую и даст хороший удобный инструмент.
а) 4F (16) + 111110 (2) = 79 (10) + 62 (10) = 141 (10)
б) 5A (16) + 1010111 (2) = 90 (10) + 87 (10) = 177 (10)