Аязыке паскаль 1)заполните массив а первыми n натуральными числами,начиная с x(ввести x с клавиатуры) в обратном порядке( начиная с конца массива) 2)заполнить массив a первыми n числами фибоначчи.первые два числа фибонначи равны еденице, а каждое последующее число фибонначи вычисляется как сумма двух предыдущих , надо!

/*некритично, но у тебя нет диалога с пользователем. неплохо бы предложить ему ввести данные. в коде нет пояснений. 
*/
#include<iostream.h>
#include<conio.h>
#include<math.h> 
int main()
{ 
int b,a, x,y,z; 
cout<<"insert a"; cin>>a>>endl; 
cout<<"insert b"; cin>>b>>endl; 
cout<<"insert x"; cin>>x>>endl; 
//а что такое x, y,  и z - вообще непонятно. И откуда q появилась? ты ее не
//объявлял. 

if ((a%5==0)&&(b%5==0));
  {
if ((x<y)&&(y<z)) 
                   {y=a*x-b; cout<<"y="<<y<<endl; }
  if ((y<x)&&(y<z)) 
                   {y=a*y-b; cout<<"y="<<y<<endl; }
}
else cout<<"a i b ne kratny 5";
getch(); 
return 0;
} 

Перевод числа Х из 10-тичной системы в n-ичную осуществляется путем деления с остатком числа Х на n, затем Х1 = Х/n на n и тд (до тех пор, пока Хi больше 0) и записыванием остатков деления в обратном порядке. В нашем случае:
Х = 10, n = 2, % - операция получения остатка от деления, / - операция получения целой части от деления.
1) 10 % 2 = 0; 10 / 2 = 5
2) 5 % 2 = 1; 5 / 2 = 2
3) 2 % 2 = 0; 2 / 2 = 1
4) 1 % 2 = 1; 1 / 2 = 0 => конец. Выпишем остатки в обратном порядке (т.е. из шагов 4), 3), 2) и 1)):
10 (в 10-ной) = 1010 (в 2-ной)
Проверка:
1010 (в 2-ной) = 1*2^3 + 0*2^2 + 1*2^2 + 0*2^0 = 8 + 0 + 2 + 0 = 10 (в 10-ной)