2,6,8,10,12,14,16,18
Я дал ответ на твой вопрос.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Horner(Self:sequence of real;x:real):real; extensionmethod;
begin
Result:=Self.Aggregate(0.0,(p,q)->p*x+q) // коэфф. по убыванию степеней!
end;
begin
var x:=ReadReal('Укажите значение х:');
Writeln('Введите коэффициенты в порядке возрастания степеней: ');
Writeln('Результат: ',ReadArrReal(11).Reverse.Horner(x));
end.
var
year:integer;
begin
writeln('Введите год');
readln(year);
if (year > 2000) and (year < 2101) then
writeln('Этот год относится к XXI веку') else
writeln('Этот год не относится к XXI веку');
end.