В 32 768 битах сожержится 4 килобайта: 32768 / 8 / 1024=4
Var a,b:real;
begin
Write('a=');
readln(a);
write('b=');
readln(b);
writeln('p=',2*(a+b));
end.
8битов
32байта
16532бита
8кб
10мб
вродебы так,но я не уверен
Если я всё верно понял то программа должна сложить цифры числа и поделить их на количество этих цифр например число 12345 должно будет обработаться так 1+2+3+4+5=15 15/5=3, программа на скрине, я её сделал не только для этого примера, туда можно ввести любое число и программа сработает верно, программу не комментировал надеюсь всё и так понятно