256=2^8 --> 8 бит для кодировки номера одного из спортсменов.
8*70=560 бит =70 байт
1)А
2) С
3)А
4) А
Вот так вот
Var a,b,r:integer;
begin
readln(a,b);
if (a<0) and (b<0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.
var n,i:longint;
var a:array[1..10000000] of longint;
begin
writeln('Введите количество элементов массива');
readln(n);
for i:=1 to n do begin writeln('Введите элемент массива'); readln(a[i]); end;
for i:=1 to n do if( (a[i] mod 2 = 0) and (a[i]<0)) then writeln(a[i]);
end.