Как переводить числа из двоичной системы в десятичную:
каждый знак числа в двоичной системе - степень двойки (считаются справа, 1-ый разряд справа - 2^0, 2-ой разряд справа - 2^1и т.д.), чтобы перевести такое число в десятичную систему, нужно сложить произведения чисел в разрядах и степеней двойки. Например, 1101 = 1*(2^3)+1*(2^2)+0*(2^1)+1*(2^0)=8+4+1=13; 10001 = 1*(2^4)+1*(2^0)=16+1=17. Остальное легко делается по такому принципу.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(30,-20,60); a.Println;
Writeln('Удвоенная сумма положительных ',(a.Where(x->x>0).Sum)*2);
Writeln('Сумма положительных, кратных 3: ',
a.Where(x->(x>0) and (x mod 3 = 0)).Sum)
end.
<u><em>Тестовое решение</em></u>
33 12 -14 -13 -13 49 -16 60 6 0 37 -6 -5 -5 31 52 49 9 30 -13 23 42 9 49 -7 42 50 44 48 30
Удвоенная сумма положительных 1410
Сумма положительных, кратных 3: 321
Елизавета - дочь
Петр III - внук
Павел - правнук
Александр - праправнук
Алг
нач
цел a, b, c
ввод a
ввод b
c := a + b
вывод c
кон