№1
var a, b, c, i:integer;
y, x :real;
begin
x:=-2;
while x<>2 do
begin
writeln (x, ' ', (exp(x) + exp(-x))/2-x*x*x*x);
x:=x+0.25;
end;
<span>end.
Первый номер, чтобы не было нарушения.
№2</span>
var a, b, c, i:integer;
y, x :real;
begin
x:=0;
while x<>4 do
begin
writeln (x, ' ', sqrt(x*x+5*x+3));
x:=x+0.25;
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
Используя закон склеивания получаем (AvC)^(Av-C)^(-BvC) = A^(-BvC)
P.S. (AvC)^(Av-C)=A
24710 = 2*5*7*353
-----------------------------------------------------
N=2 24710 (10cc) = 10000010000110 (2cc)
N=5 24710 (10cc) = 1242320 (5cc)
N=7 24710 (10cc) = 132020 (7cc)
N=14 24710(10cc) = 9010 (14cc)
N= 35 24710 (10cc) = K60 (35cc)
---------------------------------------------
ответ: N1=2 N2=5 N3=7 N4=14
В теории HDMI если чего нового не изобрели