Var r,alfa,beta,gamma,a,b,c:real;
begin
write('R = ');
readln(r);
writeln('alfa,beta,gamma:');
readln(alfa,beta,gamma);
a:=2*r*sin(alfa*pi/180);
b:=2*r*sin(beta*pi/180);
c:=2*r*sin(gamma*pi/180);
writeln('a = ',a:4:2,' b = ',b:4:2,' c = ',c:4:2);
end.
Пример:
<span>R = 2.5
alfa,beta,gamma:
36.87 53.13 90.0
a = 3.00 b = 4.00 c = 5.00</span>
Var i,p: integer;
begin
i:=2;
p:=1;
repeat
p:=p*i;
i:=i+2;
until i>10;
writeln('произведение: ',p);
end.
произведение: 3840
Если считать, что скорость передачи данных в канале связи постоянна, то соотношение между временем передачи неупакованного и упакованного файла будет равно соотношению размеров передаваемых файлов.
Передача упакованного файла происходит за 20-10=10 секунд (мы вычли время на упаковку и распаковку). А передача неупакованного происходит за 1 минуту 20 с, т.е. за 1 х 60 + 20 = 80 секунд.
80 / 10 = 8. Неупакованный файл передается медленнее в 8 раз, следовательно, он в 8 раз больше, чем упакованный.
Тогда упакованный файл имеет размер 24 МБ / 8 = 3 МБ
<u><em>Ответ:</em></u> 3 МБ