Исходя из формулы давления, давление обратно пропорционально площади(чем больше площадь, тем меньше давление). отсюда следует, что наибольшее давление будет на самой маленькой по площади грани, наименьшее давление - на самой большой. самая маленькая грань - 11 х 6 см, самая большая - 25 х 11 см. найдем давления (сила давления будет равной в обоих случаях и равна силе тяжести, т.е. mg): p max = mg / s min = 9,2*10 / 0,11*0,06 = 14 кпа p min = mg/ s max = 9,2*10 / 0,25*0,11 = 3 345 па = 3,35 кпа
program evg97; uses crt; var a,b,c: real; begin writeln('++'); writeln('| порівнялка |'); writeln('++'); write('введіть число a: '); readln(a); write('введите число b: '); readln(b); write('введіть число c: '); readln(c); writeln(); writeln('++'); writeln('| результат: |'); writeln('++'); if (a=b) or (a=c) or (b=c) then writeln('| деякі (або всі) числа рівні |') else if (a< b) and (b< c) then writeln('| число посередині: b=',b: 8: 3,' |') else if (a< c) and (c< b) then writeln('| число посередині: c=',c: 8: 3,' |') else writeln('| число посередині: a=',a: 8: 3,' |'); writeln('++'); end.
program evg97; uses crt; var a,b,c: real; begin writeln('++'); writeln('| порівнялка |'); writeln('++'); write('введіть число a: '); readln(a); write('введите число b: '); readln(b); write('введіть число c: '); readln(c); writeln(); writeln('++'); writeln('| результат: |'); writeln('++'); if (a=b) or (a=c) or (b=c) then writeln('| деякі (або всі) числа рівні |') else if (a< b) and (b< c) then writeln('| число посередині: b=',b: 8: 3,' |') else if (a< c) and (c< b) then writeln('| число посередині: c=',c: 8: 3,' |') else writeln('| число посередині: a=',a: 8: 3,' |'); writeln('++'); end.