Ответы на вопрос:
можно заархивировать файл, а затем заархивировать архив с этим файлом. и так можно проделать множество раз.
// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! function geron(a,b,c: real): real; // возвращает площадь треугольника со сторонами a,b,c begin var p: =(a+b+c)/2; // полупериметр result: =sqrt(p*(p-a)*(p-b)*(p-c)) end; function sp(ab,bc,ca,ad,bd,cd: real): real; // возвращает площадь полной поверхности пирамиды begin result: =geron(ab,bc,ca)+geron(ab,ad,bd)+geron(bc,bd,cd)+ geron(ca,cd,ad) end; procedure vvod(var ab,bc,ca,ad,bd,cd: real); // ввод значений ребер begin writeln('введите значения ребер пирамиды'); write('ребра основания- ab,bc,ca: '); read(ab,bc,ca); write('боковые ребра- ad,bd,cd: '); read(ad,bd,cd) end; begin var ab1,bc1,ca1,ad1,bd1,cd1: real; vvod(ab1,bc1,ca1,ad1,bd1,cd1); var sp1: =sp(ab1,bc1,ca1,ad1,bd1,cd1); var ab2,bc2,ca2,ad2,bd2,cd2: real; vvod(ab2,bc2,ca2,ad2,bd2,cd2); var sp2: =sp(ab2,bc2,ca2,ad2,bd2,cd2); var d: =sp1-sp2; if d> 0 then writeln('площадь sполн 1й пирамиды больше на ',d) else if d< 0 then writeln('площадь sполн 2й пирамиды больше на ',-d) else writeln('площади sполн пирамид равны'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
casha20131.01.2021 01:59
-
18фо29.08.2022 23:15
-
кукареку1808.11.2021 15:53
-
Victoria19521.08.2022 15:23
-
omg1531.03.2021 04:21
-
daniil35707.12.2020 15:20
-
whitreek422326.07.2021 09:43
-
yanochka13kol13.11.2022 08:29
-
gerasi113.07.2020 09:32
-
billymilligaan15.04.2023 11:03
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.