Question

Написать текст программы, которая выводит на экран последовательность: 2,4,6,8,6,4,2,0​

Answer 1

PascalABC.NET

var

 a: integer;

begin

 a := 0;

 while a<=6 do

   begin

     a := a+2;

     write(a,', ');

   end;

 repeat

   a := a-2;

   write(a,', ');

 until a=0 ;

end.