Дана ненулевая последовательность целых чисел, заканчивающаяся нулем. Вывести на экран все числа
этой последовательности, которые больше нуля и
делятся на 3.
Program posledovat;
Var a:integer;
Begin
Writeln (‘введите первый член последовательности’);
Readeln (a);
Repeat
If (a>0) and (a mod 3 =0) then
Writeln (a)
Until a=0;
end.

#include < iostream> #include < locale> using namespace std; int main() {   setlocale(lc_all,"rus");   int n;   cout < < "n = ", cin > > n;   int *a = new int[n];   cout < < ", введите массив из "< < n < < " элементов: \n";   for (int i = 0; i < n; i++)   {       cin > > a[i];   }   cout < < "\nполучившийся массив: [";   for (int i = 0; i < n; i++)   {       cout < < " " < < a[i];   }     bool simmetriya = true;   for (int i = 0; i < = (int)(n/2); i++)   {       if (a[i] ! = a[n-i-1])       {           simmetriya = false;           break;       }   }   cout < < (simmetriya? " ] симметричен": " ] не симметричен") < < "\n";   if (simmetriya)   {       for (int i = 0; i < (int)(n/2); i++)       {           for (int j = i; j < (int)(n/2); j++)           {               swap(a[i],a[j]);               swap(a[n-i-1],a[n-j-1]);           }       }   }   else   {       for (int i = 0; i < (int)(n/2); i++)       {           swap(a[i],a[(int)(n/2)+n%2+i]);       }   }   for (int i = 0; i < n; i++)   {       cout < < a[i] < < " ";   }   cout < < '\n';   return 0; }