Составьте программу, которая выводит последовательность чисел 1 2 3 4 5 и 5 4 3 2 1, используя циклwhile. И такую же программу используя цикл repeat.


Pascal

var  i: integer;begin i := 1;while i <= 5 do beginwriteln (i);i := i + 1end;while i >= 1 do beginwriteln (i);i := i - 1end;end.

// PascalABC.NET// ------ Цикл While ---------begin   var i := 1;      while i < 6 do    begin      write(i, ' ');      inc(i);   end;      writeln;   dec(i);      while i > 0 do   begin      write(i, ' ');      dec(i)   endend.// ------- Цикл Repeat --------begin   var i := 1;      repeat      write(i, ' ');      inc(i);   until i>5;      writeln;   dec(i);      repeat      write(i, ' ');      dec(i)   until i<1end.