var
a,b:integer;
begin
readln(a);
a:=a*9;
while a<>9 do
begin
b:=0;
while a<>0 do
begin
b:=b+a mod 10;
a:=a div 10;
end;
a:=b;
end;
end.
--------------
Из всего этого спокойно выражаются углы.
------------------------
var s,a,b,c,ua,ub,uc,otn:real;
//-----------------
function arcsin(x:real):real;
begin
arcsin:=arctan(x/Sqrt(1-sqr(x)));
end;
//---------------------
function deg(x: real):real;
begin
deg:=round(1000*x*180/pi)/1000;
end;
//-------------
begin
readln(s,a,c);
ub:=arcsin(2*s/c/a);
b:=sqrt(sqr(a)+sqr(c)-2*a*c*cos(ub));
otn:=b/sin(ub);
uc:=arcsin(c/otn);
ua:=arcsin(a/otn);
writeln('альфа= ',deg(ua),'°');
writeln('бета= ',deg(ub),'°');
writeln('гамма= ',deg(uc),'°');
end.
Кажется так, но точно не уверенна
111010
Носи́тель информации — любой материальный объектили среда, используемыйчеловеком, способный достаточно длительное время сохранять (нести) в своей структуре занесённую на негоинформацию, без использования дополнительных устройств
Фасоль ( класс: двудольные - стержневая корневая система)
пшеница ( класс: однодольные - мочковатая корневая система