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.

Answer 3

Для вывода последовательности чисел 1 2 3 4 5 и 5 4 3 2 1 с использованием циклов while и repeat на Pascal, вы можете воспользоваться следующим кодом:

1. Используя цикл while:

pascalCopy code
program WhileLoopExample;

var
  i: Integer;

begin
  // Выводим последовательность 1 2 3 4 5
  i := 1;
  while i <= 5 do
  begin
    Write(i, ' ');
    Inc(i);
  end;

  // Выводим последовательность 5 4 3 2 1
  i := 5;
  while i >= 1 do
  begin
    Write(i, ' ');
    Dec(i);
  end;

  Readln;
end.

2. Используя цикл repeat:

pascalCopy code
program RepeatLoopExample;

var
  i: Integer;

begin
  // Выводим последовательность 1 2 3 4 5
  i := 1;
  repeat
    Write(i, ' ');
    Inc(i);
  until i > 5;

  // Выводим последовательность 5 4 3 2 1
  i := 5;
  repeat
    Write(i, ' ');
    Dec(i);
  until i < 1;

  Readln;
end.

Обе программы выведут желаемые последовательности чисел с использованием соответствующих циклов.