Question

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


Pascal

Answer 1

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

Answer 2

// 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)
   end
end.

// ------- Цикл Repeat --------
begin
   var i := 1;
   
   repeat
      write(i, ' ');
      inc(i);
   until i>5;
   
   writeln;
   dec(i);
   
   repeat
      write(i, ' ');
      dec(i)
   until i<1
end.