#include <iostream>
#include <cmath>
int main()
{
int a;
int S;
std::cin >> a;
if (a > 5)
{
S = std::sin(std::cos(a*3-2)+std::tan(a/2.0));
std::cout << S << std::endl;
}
else if (a < 2)
{
S = std::atan(a) + std::sqrt(a) + std::pow(a,3);
std::cout << S << std::endl;
}
else
{
std::cout << "No solutions!" <<std::endl;
}
return 0;
}
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=ReadInteger;
var p:=1.0;
for var i:=1 to n do p:=p*i;
write(p);
end.
Begin
for i: byte := 1 to 19 do ;
end.
PascalABC.NET
Var a,b,c:real;
begin
write('Введите стороны треугольника а,b и c: ');
readln(a,b,c);
if (a=b) and(b=c) then
writeln('Треугольник равносторонний')
else writeln('Треугольник неравносторонний');
<span>end.</span>
1красный+1синий+1белый+1(например)красный=4(наименьшее число шариков которое нужно вытащить)