программирование Воронеж

var n, y, i, x: integer;
begin
    randomize(); // датчик случайных чисел 
  
    n := 4; // сколько чисел выводить
    for i := 1 to n do
    begin
        y := 0;
        x := random (20) - 10; // из диапазона
        y :=y+x;
        writeln('x=', x,' y=', y ); // печатаем значение
    end;
end.

begin
  var x, n, z:integer;
  var k:boolean;
  k:=true; //присваиваем значение истины (в том смысле что ряд идет на повышение)
  z:=1; //начальное значение
  n:=20; //предел счетчика цикла
  for x:=1 to n do //цикл, который выполнится n раз
  begin //начало тела цикла 
    writeln ( 'z=' , z); //выведем значение переменной z, так как при первом витке оно соответствует условию задачи
    {после того как мы вывели очередное значение z, нам необходимо задать правило, 

Пожалуйста скажите , можно ли в конструкции

for ($i=1; $a / pow (10,$count -$i) == $a % pow (10,$i) ; $i++ )

сделать два и более условия уже для $i ?

for ($i=1; $a / pow (10,$count -$i) == $a % pow (10,$i) ; 
       $i++ and if ($a %2==0) { $i <= $count/2} else { $i <= $count/2+1} )

Исходный пост задачи

Cпособ решения через функции .

<?php
// Задаём до какого числа рассматривать последовательность
 $a = 6 ;
 // Задаём начальное значение произведению 
 $r=1;
 // Пишем цикл где сами натуральные числа -это $i .
 for ($i =1 ; $i <=$a ; $i++)
 { 
echo $i , "<BR>" ;
 // "Просеиваем" числа $i на чётность 
 if ($i % 2 ==  0)
 {
 // Здесь пишем произведения 
	 $r=$i*$r ;
//	 echo $r ,"<BR>" ;
 }
 }
 // Выводим произведение натуральных чисел
 echo "Произведение чётных натуральных чисел равно ",$r;
?>

<?php
  $a = 6 ;
 $c =$a ;
 while ( $a % 2 ==0 )
 {
	 $a = $a/2 ;
 }
 if ($a==1)
 {
	 echo "Число ", $c , " степень числа 2" ;
 }
 else
 {
	 echo "Число ", $c , " е является степенью числа 2" ;
 }
 
?>

Эта программа не работает в free pascal