Надо переделать в С++,ничего не получается...
program z1;
function f(x:real):real;
begin
f:=sin(x+1)
end;
procedure tab(a,b,h:real);
var x:real;
begin
writeln (‘a=’,a:0:1, ‘b=’, b:0:1, ‘h=’, h:0:1);
x:=a;
while x begin
writeln (‘x=’,x:4:1, ‘f=’,f(x):6:3);
x:=x+h;
end;
writeln;
end;
begin
tab(2,4,0.2);
tab(1,10,0.5);
readln;
end.

Один символ кодируется в 8 битах, значит умножаем 8 бит на количество символов в строке - 48*8= получаем 384 бит, значит в одной строке 384 бит. Теперь чтоб узнать количество бит на странице, просто умножаем количество бит одной строки на количество строк в одной странице - 384*40= получаем 15360 бит , получается на одной странице 15360 бит. Дальше чтоб узнать сколько бит на этих восьми страницах умножаем количество бит в одной странице на 8, и получаем количество бит полного рассказа 15360*8=122880 бит.

чтоб получить ответ из предложенных вариантов переводом биты в байты а потом и в килобайт.
122880 разделить на 8 получаем 15360 байт.
15360 разделяем на 1024 и получаем 15 Кбайт.

Var
a,b,c: integer;
begin
write('введите первую сторону треугольника ');
readln(a);
write('введите вторую сторону треугольника ');
readln(b);
write('введите третью сторону треугольника ');
readln(c);
if (a<0) or (a<0) or (b<0) then write('такого треугольника не существует ') else
if (a<>b) and (b<>c) then write('треугольник разносторонний') else
if (a=b) and (b=c) then write('треугольник равносторонний') else
if (a=b) or (a=c) or (b=c) then write('треугольник равнобедренный');
writeln;
end.