<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
Да это правда
:))))
Не за что помочь
1 вариант:
If (a>0) or (a=0) and (b>0) or (b=0) and (c>0) or (c=0) Then s:=a+b+c Else
If (a>0) or (a=0) and (b>0) or (b=0) and (c<0) Then s:=a+b Else
If (a>0) or (a=0) and (c>0) or (c=0) and (b<0) Then s:=a+c Else
If (b>0) or (b=0) and (c>0) or (c=0) and (a<0) Then s:=b+c Else
If (a<0) and (b<0) and (c>0) or (c=0) Then s:=c Else
If (a<0) and (c<0) and (b>0) or (b=0) Then s:=b Else s:=a;
2 вариант:
If (a>0) or (a=0) Then s:=s+a;
If (b>0) or (b=0) Then s:=s+b;<span>
If (c>0) or (c=0) Then s:=s+c;</span>
Begin
var s:=readlnstring;
var gl:='АЕИОУЫЯЁЮЭ';
var m:=s.ToWords;
var k:=m.Length;
var b:=new integer[k];
for var i:=0 to k-1 do
b[i]:=m[i].Where(c->c.ToUpper in gl).Count;
Writeln(m[b.IndexMax])
end.
Текст имеет цвет шрифт, размер. Может быть кликнут для перехода по ссылке. Может иметь разметку на странице чтобы быть сверстанным в целую веб странницу. Гипертекст представляется языком разметки гипертекста HTML, что предоставляет пользователю технологии веб программирования такие как JavaScript, веб сервисы и всё всё что имеет представление в интернете.