Var y: array[1..12] of integer;
i,k:integer; s:real;
begin
for i:=1 to 12 do
read (y[i]);
for i:=1 to 12 do
if y[i] mod 2=0 then
begin
s:=s+y[i];
k:=k+1;
end;
s:=s/k;
write (s:5:1);
end.
480 бит = 60 байт
нужно решить уравнение
x/2=x-60
x=2x-120
x = 120 символов
1.
2(10) = 10(2); (10)- индекс внизу без скоб
7(10) = 111(2);
17(10) = 10001(2);
68(10)= 1000100(2);
315(10)= 100111011(2).
2.
101(2)= 1 * 2^(2) + 0 *2^(1)+ 1 . 2^(0) = 4 + 1 = 5(10);
11101(2) = 1 *2^(4) + 1 * 2^(3) + 1 *2^(2)+ 0 *2^(1) + 1 *2^(0)= 16 + 8 + 4 + 1 = 29(10);
101010(2) = 1 *2^(5) + 0 *2^(4)+ 1*2^(3) + 0 *2^(2) + 1 *2^(1) + 0 *2^(0)= 32 + 0 + 8 + 0 + 2 + 0 = 42(10);
100011(2) = 1 *2^(5)+ 0 * 2^(4) + 0 *2^(3)+ 0 *2^(2) + 1 *2^(1) + 1 *2^(0)= 32 + 2 + 1 = 35(10).
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
Ответ:
y = 30
Объяснение:
-1) Начало
0) Ввод x = 5
x < 0 ? -> Нет => y = 4 * 5 + 10 = 30;