Var a,r,y: real;
begin
readln(a);
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a));
writeln(r,y);
<span>end.</span>
Ответ:
модель «Homo economicus».
Модель «советский экономический человек»
Объяснение:
<span>Они будут меньше, быстрее, умнее и, если верить рекламе программного обеспечения, дружественнее.</span>
Program lol;
var a,h,s:real;
begin
writeln ('Введіть сторону');
readln (a);
writeln ('Введіть висоту');
readln (h);
s := 0.5*a*h;
writeln ('Площа трикутника: ' ,s,'кв см');<span>
end.</span>