Информатика 12, 13, 14 решите мне .

12. Решите задачу, используя любой цикл (с известным числом шагов с предусловием или постусловием). S=10+2*x/3...

//Код программы на Pascal 3.5.2:

var

x, n:integer;

 S:real;

begin

S:=10;

 readln(n,x);

 for var i:=2 to n do

 begin

   S+= (i*x)/3;

 end;

 writeln('S=', S);

end.

13. Найдите произведение последовательных натуральных чисел от n до m.

//Код программы на Pascal 3.5.2:

var

n,m:integer;

 W: int64;

begin

 readln(n,m);

 W:=n*(n+1);

 for var i:=n+2 to m do

 begin

   W:=W*i;

 end;

 writeln(W);

end.

14.a Блок кода

//Код программы на Pascal 3.5.2:

var

 x:integer;

 S:real;

begin

 for var i:=1 to 10 do

 begin

   readln(x);

   S:=S+x/2;

 end;

//writeln(S);

end.

14.b Блок кода

//Код программы на Pascal 3.5.2:

var  

k:integer;

 i:integer;

begin

 while i<15 do begin

   k+=1;

   i+=1;

 end;

//writeln(k);

end.

Байты в памяти компьютера нумеруются последовательно, начиная от нуля. Если объем памяти составляет n байт, то номера будут идти от 0 до n-1.
В пределах одного данного, размещенного в памяти, байты нумеруют в зависимости от архитектуры компьютера.
Например, байты в персональном компьютере с архитектурой IBM PC, нумеруют в порядке от младшего к старшему, т.е. в порядке a₀, a₁, a₂ ,,, и этот порядок часто называют "интелловским" по названию фирмы Intel, использовавшей такой порядок в своем процессоре архитектуры х86.
А в ЭВМ архитектуры IBM/360 (/370) байты нумеровались от старшего к младшему.
Также, есть ЭВМ, которые могут переключать порядок нумерации байтов при инициализации операционной системы. 

//Dev-C++ 5.11

#include <iostream>
#include <ctime>
#include <stdlib.h>
using namespace std;

int main(void)
 {const int n=5;
 int arr[n],c,k;
 srand(time(NULL));
 cout<<"Array:"<<endl;
 for(int i=0;i<n;i++)
  {arr[i]=(rand()%41)-20; //r=(rand()%(max+1-min))+min
  cout<<arr[i]<<" ";}
 cout<<endl;
 cin>>c;
 k=0;
 for(int i=0;i<n-k;i++)
  if(arr[i]==c)
   {for(int j=i;j<n-k;j++)
    arr[j]=arr[j+1];
   k++;
   i--;}
 cout<<endl<<"Final array:"<<endl;
 for(int i=0;i<n-k;i++)
  cout<<arr[i]<<" ";
 return 0;}

Пример работы программы:
Array:
-3 -10 -10 -6 3
-10
Final array:
-3 -6 3