1)40*50=2000-на 1 стр.
2)2000*30= 60000- объем книги в байтах
<span>если надо в Кб то 60000 делите на 1024, если в Мб то получившиеся число после Кб делим еще на 1024</span>
Function S(a,b,c:real):real;
Var
p:real;
Begin
p:=(a+b+c)/2;
result:=Sqrt(p*(p-a)*(p-b)*(p-c))
End;
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b+c)and(b<c+a)and(c<a+b) then WriteLn('S = ',S(a,b,c))
else WriteLn('Треугольник не существует')
End.
Пример:
a = 3
b = 4
c = 5
S = 6
Var x, n, m, f, s: integer;
begin
write('Введите N: '); readln(n);
write('Введите M: '); readln(m);
write('Введите F: '); readln(f);
for x := 1 to n do
if(x mod m = f) then s := s + sqr(x);
writeln('Сумма: ', s);
end.
Т.к 256 цветов то, 8 бит на пиксель. Всего 800 пикселей следовательно, 800*8=1600 бит. 1 байт =8 бит следовательно ,размер рисунка равен 1600/8=800 байт (Вроде так должно быть)