Команда умножить на 3 в данном случае бессмыслена,так как 8*3=24,получается есть только одна программа -8 +2 +2 +2 +2 +2=18
<span>a. 20 div 3 = 6</span>
<span>b. 2 mod 3 = 2
</span><span>c. 56 shl 2 = 224</span>
<span>d. 30 shr 2 = 15
</span><span>e. round(87.5) = 88
</span><span>f. trunc(87.5) = 87</span>
<span>g. int(87.5) = 87.0
</span><span>h. frac(87.5) = 0.5</span>
var
a: <em>real</em>;
h, m: <em>byte</em>;
begin
readln(a);
a := a * 6;
h := trunc(a / 60);
m := trunc(a - h * 60);
writeln(String.Format('{0}:{1}', h, m));
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var t:=Readinteger('T=');
Writeln('S=',a.Where(p->p>t).Sum)
end.
<u>Пример</u>
n= 15
13 20 41 -5 -41 4 -2 -30 21 3 -35 23 -27 -25 41
T= 12
S=159
A)
#include <iostream>
<span>
#include "math.h"</span>
using namespace std;
int main()
{
const double Pi = 3.14;
double x,y;
<span> cin >> x;
</span>
y=((2*pow(sin(x),2))/(Pi*x)-atan(x));
cout << y << endl;
<span>}
б)
</span>#include <iostream>
<span>
<span>#include <cmath>
</span></span>double log(double a, double b)
{
return log(b) / log(a);
}
using namespace std;
int main()
{
double x,y;
cin >> x;
y=log(5,abs(x-12.5*pow(x,9))+((2*x-4)/(abs(pow(x,8)-12*pow(x,4)+5.1*pow(x,3)))));
cout << y << endl;
}