//PascalABC.NET
power((c + d), 2) / (sqrt(2 * x));
power((c + d), 2) / (sqrt(2) * x);
Для начала , чтобы найти I(Обьем книги)=(кол.станиц×кол.строк×кол.символов×вес 1 символа)I=15×33×63×8=249'480 бит, теперь переводим в кбайты 249'480÷8=31'185 байт ; 31'185÷1024=30.45кбайт , округляем будет 31
кбайт.Ответ:31 кбайт нужно выделить.
P.S: Знак (') я писал, чтобы легче было распознать число.
var a,sum,i:integer;
begin
for i:=1 to 5 do
begin
readln (a);
if (a mod 4=0) and (a mod 10=6) then sum:=sum+a;
end;
writeln (sum);
readln;
end.
35 = 100011
35:2=17 с остатком 1
17:2=8 с остатком 1
8:2=4 без остатка 0
4:2=2 без остатка 0
2:2=1 без остатка 0
1:2=0,5 с остатком 1
записывать снизу вверх