16 = 2 в ст 4.
4 бита на 1 символ
1/16 МБ = 1024 * 1024 * 8 / 16 бит = 524288 бит
ответ 524288 / 4 = 131072 символов
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var r:=Range(100,1000);
Writeln('Сумма четных: ',r.Where(x->x.IsEven).Sum);
Writeln('Произведение нечетных: ',
r.Where(x->x.IsOdd).Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Результат</u>
Сумма четных: 248050
Произведение нечетных: 36966544481545882391823230067805385433230065368829576574915631961875951438749314875520891958773465683198309929571713227368698968335498279329362186811130459340459701708143628528300666430241499963363995156875472920823879073796270530674091365457301367694608396460427864525856348256854709381753098272866558646536629626322781887765489939455189437187612366035802205337138797639784505362746964525946343706655765053639253274426077913592271079783658672906924798929301517243147811305368104203869922649498420017010079861449087671086945458864075701800348571856363660191891005745473487285185093263826285985161291672009840401500648116978749473368664914039649974635642316727953613512087059513022266150683907968562889468475751462634414790601916842157202699257750637933476610759209266207736659346632336154863491811161547515391373090783158239924403943495793328563207072814564054863234093687597907376741512012744430337566475185020879095658879920498365311358232252688878619532793045747038932448911025039177711271956296398164256480905110102487991832871736322981910580412208741937654427051439114361588088330674072568693330290186189385005707253104742148887065855866777951156097027659674751631779798799470881931483745574951171875
(5,5), (8,8), (9,8), (11,6), (12,7), (12,7), (11,7),
(11,2), (9,2), (9,3), (10,3), (10,4), (7,4), (7,2),
(5,2), (5,3), (6,3), (6,9), (7,9), (7,8), (2,8),
(2,9), (3,9), (3,6), (4,5)
1)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
repeat
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
until i>=n;
writeln('s = ',s);
end.
2)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
while i<n do
begin
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
3)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1;
for i:=2 to n do
begin
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
Пример:
5
s = 6.875000000000000e-01
Наверху панель управления там где овал ( круг) левой кнопкой мыши нажимаешь и одновременно шифт ( чтобы было ровно ) потом палочки и 3 заливаешь !) удачи!!
