Указывайте, пожалуйста, язык программирования.
Могу предоставить код на C++:
int main(){
for(int x = 0; x <=20; x+=2)
{
printf("%i",9*(x*x)+6*x);
}
}
На pascal всё гораздо муторней.
var x,i:integer;
begin
x := 0;
for i:= 1 to 11 do
begin
writeln(9*(x*x)+6*x);
x := x + 2;
end;
end.
//Pascal ABC.NET 3.1 сборка 1219
Var
n,a,b:integer;
x:array of integer;
procedure vvod(n:integer; var x:array of integer);
begin
x:=readarrinteger(n);
end;
begin
readln(n,a,b);
vvod(n,x);
var sub1:=x.Where(x -> x<a);
var sub2:=x.Where(x -> x>b);
var sub:=sub1+sub2;
n:=1;
writeln('Сумма не вошедших:',sub.Sum);
foreach var i in sub do
n:=n*i;
writeln('Произведение не вошедших:',n);
writeln('Количество не вошедших:',sub.Count);
writeln('Все элементы:',sub);
end.
Пример ввода:5
1
5
-1
-2
4
5
6
Пример вывода:Сумма не вошедших:3
Произведение не вошедших:12
Количество не вошедших:3
Все элементы:[-1,-2,6]
Подробное решение во вложении
Var i,n,k: integer;
<span> a: array[0..1000] of integer;
</span><span>begin
</span><span> write('n = '); readln(n);
</span><span> a[0]:=1; a[1]:=1;
</span><span> i:=2;
</span><span> repeat
</span><span> k:=i div 2;
</span><span> if (i mod 2) = 0 then a[i]:=a[k]+a[k-1]
</span><span> else a[i]:=a[k]-a[k-1];
</span><span> i:=i+1;
</span><span> until i>n;
</span><span> writeln('a(n) = ',a[n]);
</span><span>end.
</span>
program task;
var a,b,c,x:real;
begin
readln(a,b,c);
x:=sqrt(4*a*c+b);
writeln(x)
end.
