Регистрация
двоищник3
24.11.2022 05:53
Информатика
Есть ответ 👍

Сравнить степень сжатия файла в разных форматах ​

159
371
Посмотреть ответы 2

Ответы на вопрос:

КэтринПирс23
КэтринПирс23
4,7(73 оценок)

Zip (WinZip): 314 MB (48% от оригинального размера)

RAR (WinRAR): 307 MB (46.9% от оригинального размера)

hdhdydjsh
hdhdydjsh
4,6(18 оценок)

const

 cMinX: Single = 0;

 cMaxX: Single = 10;

 cDelta: Single = 0.1;

var

 y, x: Single;

 sum, mul: Single;

begin

 sum := 0;

 mul := 1;

 x := cMinX;

 repeat

   y = Sin(2*x)-0.5;

   if y > 0 then

     sum := sum + y;

   if y < 0 then

     mul := mul*Abs(y);

 until x > cMaxX;

 Writeln(sum);

 Writeln(mul);  

end;  

Объяснение:

Популярно: Информатика