Program formula;
var y,x,M:real;
begin
readln(y,x);
M:=cos(2*y)+3.6*exp(x);
write('M=', M);
<span>end.</span>
%.2f это разьем с плавающей (float<span>) точкой, и после точки надо оставить два десятичных знака. != эт "не равно".</span>
<em>PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
function Horner(x:real;a:array of real):real;
begin
Result:=x*a.Last;
for var i:=a.Length-2 downto 1 do
Result:=x*(a[i]+Result);
Result+=a.First
end;
begin
var n:=ReadInteger('Степень полинома:');
var x:=ReadReal('x=');
var a:=ReadArrReal('Коэффициенты, начиная со свободного члена:',n+1);
Writeln('Значение полинома: ',Horner(x,a))
end.
<u>Пример</u>
Степень полинома: 9
x= -4.2
Коэффициенты, начиная со свободного члена: 4 0 0 0 0 0 3 -2 0 3
Значение полинома: -1157435.18966682
100% 3 способа тв что ето же проще простого
Помогу только со вторым заданием. Прости(
Также сверху ставится один значок, я его найти не смогла, поэтому буду помечать как "значок". На всякий случай оставлю рисунок, как он выглядит.
НЕ (Ударение на первый слог) И (Количество букв четное)
Корова - 0 (сверху значок) = 1 × 1 = 1
Козел - 0 (сверху значок) = 1 × 0 = 0
Кошка - 1 (сверху значок) = 0 × 0 = 0
Конь - 1 (сверху значок) = 0 × 1 = 0
Ответ: корова.
—
Удачи)))