Для нормального разведения золотых рыбок необходимо, чтобы на каждую рыбку в аквариуме приходилось не менее 3-х литров воды. по известным объему аквариума и количеству рыбок, в нем содержащихся определить, является ли аквариум перенаселенным или нет, и указать количество рыбок, которых в случае перенаселенности необходимо поместить в другой аквариум или, наоборот, можно еще разместить в аквариуме.

Var n,v,k: integer; begin writeln('введите объём аквариума(в литрах)'); readln(v); writeln('введите количество рыбок'); readln(n); if v> =(3*n) then begin k: = (v div 3) -n; writeln('аквариум не является перенаселённым,в нём можно ещё разместить ',k,' р.'); end else  begin k: =n- (v div 3); writeln('аквариум является перенаселённым,необходимо поместить ',k,' р. в другой аквариум'); end; end.

1. 0,25 кбайт=256 байт = 2048 бит

2. каждый символ - 8 бит

3. 2048/8=256 символов

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.