Var
a, b, c: longint;
begin
readln(a, b);
c := a - b;
if (c > b) then
writeln('Валя собрала на ', c - b, ' кг клубники больше чем Вера.');
if (c < b) then
writeln('Вера собрала на ', b - c, ' кг клубники больше чем Валя.');
if (c = b) then
writeln('Девочки собрали одинаковое количество клубники.');
end.
Самый простой вариант кодирования - задавать номера клетки по горизонтали и по вертикали. Если горизонталей ("строк") 8, то их можно занумеровать от 0 до 7 и для задания номера горизонтали будет достаточно 3 бита (комбинации 000 - 111). Вертикалей 4, пронумеруем их от 0 до 3 и закодируем битами от 00 до 11 - такой код займет 2 бита. Итого потребуется 3+2=5 бит.
Можно и проще было посчитать. 8х4=32, 32 это 2^5, поэтому потребуется 5 бит для нумерации клеток от 0 до 31.
Program next;
var a,b,c,i,g,o:integer;
begin
g:=0;
b:= 0;
writeln('Сколько учахщихся?');readln(a);
for i=0 to a do
writeln('Средний бал у ',i,' ученика:');readln(c);
g:= g+c;
end;
o:= g/a;
writeln('Средний балл учащихся',o);
readln;
end.
Это классическая формула сложных процентов
Sn = S0*(1 + 0.05)^n
