Объем информации для записи номеров участников:
для 1го - 1 бит x 1 = 1
для 2-3го - 2 бита x 2 = 4
для 4-7го - 3 бита x 4 = 12
для 8-15го - 4 бита x 8 = 32
для 16-31го - 5 бит x 16 = 80
для 32-63го - 6 бит x 32 = 192
для 64-120 - 7 бит x 64 = 448
для записи результатов по 8 бит на каждого. 8 x 120 = 960
итого, 1729 бит
//#1
var
a, b: array of integer;
n: integer;
procedure parse(var a, b: array of integer; n: integer);
begin
var sum_p: integer := 0;
var sum_m: integer := 0;
var data: integer := 0;
setlength(a, n); setlength(b, n);
var i:integer;
for i := low(a) to high(a) do
begin
readln(a[i]); readln(b[i]);
sum_p += 3a[i];//kov vo zabitix myachei
sum_m += b[i];//kol vo promaxov
if b[i] > 1 then inc(data);
end;
writeln(sum_p - sum_m);
writeln(data);
end;
begin
readln(n);
parse(a, b, n);
end.
//#2
var
a: array of integer;
n: integer;
procedure parse(var a: array of integer; n: integer);
var
i: integer;
begin
var data: integer := 0;
setlength(a, n);
var sum: integer := 0;
for i := low(a) to high(a) do begin read(a[i]); sum += a[i]; if a[i] < 0 then inc(data); end;
writeln(sum / (high(a) + 1):0:4);
write(data);
end;
begin
readln(n);
parse(a, n);
end.
Var n, i: Integer;
<span> a, min: LongInt;
</span>Begin
<span> min := 30000;
</span><span> readln(n);
</span><span> for i := 1 to n do begin
</span><span> read(a);
</span><span> if (a mod 2=0) and (a < min) then min := a;
</span><span> end;
</span><span> writeln(min);
</span><span>End.</span>
program raf105;
var
a: array[1..100] of integer;
i,n,c: integer;
x: boolean;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
x:= True;
readln(n);
for i:=2 to n-1 do
if (n mod i = 0) and (n <> 0)
then x:= False;
if x and (n <> 0)
then begin
c:= c+1;
a[c]:= n;
end;
until n = 0;
write('Простые числа: ');
for i:=1 to c do
write(a[i],' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>