//Pascal
const
N = 5;
var
a: array [1..N] of integer;
s: integer;
begin
s := 0;
for var i := 1 to N do
begin
a[i] := Random(100);
if (a[i] mod 2 = 0) then s := s + a[i];
write(a[i]:5);
end;
writeln;
writeln('Сумма четных: ', s);
end.
325 = 101000101(2)
325 = 505(8)
325 = 145(16)
11011111 = 223
11011001 = 217
11000011 = 195
11000000 = 192
//PascalABC.NET
power((c + d), 2) / (sqrt(2 * x));
power((c + d), 2) / (sqrt(2) * x);