411**. Составь программу для вычисления следующих параметров комнаты, используя размеры, заданные на рисунке. Площадью полной поверхности называется сумма площадей всех поверхностей кирпича. 1. Площадь пола комнаты.

2. Периметр комнаты.

3. Площадь четырех стен комнаты.

4. Объем комнаты.

5. Площадь общей поверхности комнаты.

6м

3м

из всех монет в меньшей стороне всегда присутствует v6,

в большей стороне ни одна монета не повторяется во всех трех взвешиваниях, значит монета под номером 6 фальшивая и она весит меньше подлинных

program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.

2*3=6

512*128*6=393216

393216: 1024=384кб

program z2_65; uses crt; label a1,a2,a3,a4,a5,a6,a7; var a,s,h,rv,ro,p: real; n: integer; beginclrscr; writeln('укажите номер пункта: '); writeln('1. дана сторона треугольника.'); writeln('2. дана площадь треугольника.'); writeln('3. дана высота треугольника.'); writeln('4. дан радиус вписанной окружности треугольника.'); writeln('5. дан радиус описанной окружности треугольника.'); read(n); case n of1: begin write('a='); read(a); goto a1; end; 2: begin write('s='); read(s); goto a2; end; 3: begin write('h='); read(h); goto a3; end; 4: begin write('r='); read(rv); goto a4; end; 5: begin write('r='); read(ro); goto a5; end; elsebeginwrite('такого номера пункта нет.'); goto a7; end; end; a1: rv: =a/2; ro: =a/sqrt(3); s: =sqrt(3)*sqr(a)/4; h: =2*s/a; goto a6; a2: a: =sqrt(4*s/sqrt(3)); h: =2*s/a; rv: =a/2; ro: =a/sqrt(3); goto a6; a3: a: =2*h/sqrt(3); s: =a*h/2; rv: =a/2; ro: =a/sqrt(3); goto a6; a4: a: =2*rv; ro: =a/sqrt(3); s: =sqrt(3)*sqr(a)/4; h: =2*s/a; goto a6; a5: a: =sqrt(3)*ro; s: =(a*a*a)/(4*ro); h: =2*s/a; rv: =a/2; a6: writeln('a=',a: 2: 2); writeln('s=',s: 2: 2); writeln('h=',h: 2: 2); writeln('r=',ro: 2: 2); writeln('r=',rv: 2: 2); a7: readkey; end.