Составить программу на языке паскаль s=2+4++n

Var   i,n,s: longint; begin   write('введите четное значение последнего члена ряда: ');   readln(n);   s: =0;   for i: =1 to n div 2 do s: =s+2*i;   writeln('сумма членов ряда равна ',s) end. тестовое решение: введите четное значение последнего члена ряда: 50 сумма членов ряда равна 650

Var s, i, n: integer; begin read(n); i: =2; write('s = '); while (i< =n) do begin s: =s+i; i: =i+2; end; writeln(s); end.

Объяснение:

Для быстрого прототипирования, ведь потреблять стремительного приготовления первообразов модификаций и предметов ради последующей доводки. Уже на рубеже проектирования возможно главным манером скорректировать установку участка или объекта в целом. В инженерии экий подъезд горазд кардинально уменьшить траты в производстве и освоении свежеиспеченной продукции.

Для быстрого изготовления — производство готовых подробностей изо материалов, поддерживаемых 3D-принтерами. Это отличное постановление ради мелкосерийного производства.

Производство модификаций и форм для литейного производства.

Установка изо неокрашенного материала разрешает заприметить службу механизма «изнутри», что например водился использовано инженерами Porsche при изучении тока масла в трансмиссии автомобиля ещё при разработке.

Изготовление разнообразных подробностей в семейных условиях.

Изготовление сложных, массивных, долговременных и недорогих систем. Например, непилотируемый самолёт Polecat[en] бражки Lockheed, большинство подробностей какого водился сделана высокоскоростной многомерной печати.

Производство лекарств, протезов и органов.

Для строительства строений и сооружений[12][13].

Для создания ингредиентов средства (Defense Distributed). Имеются опыты по печати средства целиком[14].

Изготовления корпусов эмпирической техники (автомобили[15], телефоны, радиоэлектронное оборудование)

Провиантское производство[16].

C++:

#include <bits/stdc++.h>

using namespace std;

int main() {

 long long a, b; cin >> a >> b;

 system("cls && color ")           < код цвета

 cout << (a + b) / b;

}

PASCAL:

var a, b, c: integer;

begin

 readln(a);

 readln(b);

 c:=(a+b)/b;

 ClrScr;

 textbackground(...);       < где троеточие вставляй код цвета

 textcolor(...);

 writeln(c);

end.

Объяснение:

Коды цветов в паскаль:

0   Black,         черный.   8   DarkGray,          темно-серый.          

1   Blue,           синий.   9   LightBlue,          ярко-синий.          

2   Green,        зеленый.  10   LightGreen,       ярко-зеленый.        

3   Cyan,         голубой.  11   LightCyan,        ярко-голубой.        

4   Red,          красный.  12   LightRed,         ярко-красный.        

5   Magenta,   фиолетовый.  13   LightMagenta,  ярко-фиолетовый.    

6   Brown,     коричневый.  14   Yellow,                 желтый.              

7   LightGray, ярко-серый.  15   White,                   белый

Важно для работы ClrScreen надо подключить модуль Crtl через use