Составить программу по информатике: вычислить объём вещества массой 0, 45 кг при изменении плотности от 0, 5 до 1 кг/м3 с шагом 0, 1 кг/м3

1)

var a,b,c,d,s,p: real; begincls; writeln('введите стороны треугольника: '); read(a,b,c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); write('площадь треугольника s=',s); end.

2)

var a,b,c,d,s,v: real; begincls; write('введите 3 ребра='); read(a,b,c); v: =a*b*c; s: =2*(a*b+b*c+a*c); d: =(a+b+c)*2; writeln('прямоугольный параллелепипед: '); writeln('обьём: ',v); writeln('площадь: ',s); writeln('сумма рёбер: ',d); end.

3)

var a,b,c,d,p: real; begincls; writeln('введите сторону и 2 угла ромба'); read(a,b,c); if b> c thenp: =a*sqrt(2+2*cos(b))elsed: =a*sqrt(2+2*cos(c)); writeln('большая диагональ ромба d=',p); writeln('меньшая диагональ ромба d=',d); end.

1)-63,611=-63611*10^-3  

2)60.509 =60509*10^-3

 

1)16-ой

 

63.611

  63/16   =03f

  .611=9c6

и того -   03f 9c6

 

2)60=  3с6

509= 824 

  и того   3с6 824  

 

  5db0000=16^7*4 + 16^6*5 + 16^5*13 + 16^4*11 + 16^3*0 + 16^2*0 + 16^1*0 + 16^0*0 = 1073741824 + 83886080 + 13631488 + 720896 здесь нулли  = 1171980288

 

c88b6000   =16^7*12 + 16^6*8 + 16^5*8 + 16^4*11 + 16^3*6 = 3364577280

 

 

f6e5 = 16^4*15 + 16^3*6 + 16^2*14 + 16^1*5 =1011280

 

8d7=   16^2*   8 + 16^1*   13 + 16^0*7 = 2048 + 208 + 7 = 2263