// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x,y:real;
Write('Введите x и y: '); Read(x,y);
// 13
Writeln(cos(x)/(pi-2*x)+16*x*cos(x*y)-2);
// 20
Writeln((1+sin(sqrt(sin(x)+1)))/cos(12*y-4));
// 23
Writeln(Power(3,x)-4*x+(y-sqrt(abs(x))))
end.
<u><em>Тестовое решение</em></u>
Введите x и y: 2.15 4.1
-29.7277579658493
5.71678202339215
4.64604098127078
Без рандома:
program p5_4;
var
P,S,S1:real; i,k:integer;
b:array[1..20] of integer;
z:array[1..10] of integer;
begin
writeln(' z: ');
for k:=1 to 10 do
begin
Readln(z[k]);
write(z[k]:4);
end;
writeln;
writeln(' b: ');
for i:=1 to 20 do
begin
Readln(b[i]);
write(b[i]:4);
end;
P:=1;
S1:=0;
for i:=1 to 20 do
S1:=2*(S1+cos(sqr(b[i])));
for k:=1 to 10 do
P:=P*(z[k]);
S:=S1+P;
writeln(' S=',S:2:5);
<span>end.</span>
1*2^7+0*2^6+1*2^5+1*2^4+1*2^3+0*2^2+0*2^1+1*2^0=128+32+16+8+1=185
100
Всего 10 шагов(12 - 3 = 9, +1 шаг, так как нестрогий знак неравенства), 10*10 = 100
Существует т.к 10 17 27 - длины сторон.
Если сумма двух меньших сторон равна большей, то такой треугольник существует