// 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
A MOD 2 = 0 - четное
А MOD 2 <> 0 - нечетное
Для хранения информации о цвете точки в черно-белом изображении без градаций серого требуется один бит. Следовательно всего понадобится 1 * 50 * 50 бит = 2500 бит
Function F(x,eps:double):double;
var
s0,s1,sgn,d:real;
begin
s1:=x; d:=1; sgn:=1;
repeat
s0:=s1; d:=d+1; sgn:=-sgn;
s1:=s0+sgn*x/d
until abs(s1-s0)<=eps;
f:=s1
end;
var
x:double;
begin
x:=-0.5;
while x<=0.5 do begin
Writeln(x:4:1,F(x,1e-7):14:7);
x:=x+0.1
end
end.
<u>Результат</u>
-0.5 -0.3465736
-0.4 -0.2772589
-0.3 -0.2079442
-0.2 -0.1386295
-0.1 -0.0693148
0.0 0.0000000
0.1 0.0693148
0.2 0.1386295
0.3 0.2079442
0.4 0.2772589
0.5 0.3465736