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>
Const xn=-1.5; xk=1.5; h=0.1;
var x,y:real;
begin
x:=xn-h;
writeln(' x y');
repeat
x:=x+h;
y:=2*exp(-x)*cos(1.7*x-0.3);
writeln(x:4:1,y:7:3);
until x>=xk;
<span>end.</span>
Сначала находим вес всего сообщения, т .е.2 *25=50 кбит
тогда количество символов в сообщении равно 50 кбит=51200 бит
51200/2=25600
теперь находим количество символов на странице
25600/25=1024 символа
Получится текст
"zDRAWSTWUJ$ DOROGOJ sA[A!" если кодировать в том же <span>KOI8-R</span>
делалось вручную. цените)
90. "Закодирован" текст: "У кого сильные мышцы, тот победит одного. Кто силен знаниями, тот победит тысячу."