Составьте программу выводящую ** экран все числа от - 10 до 10

Question

Составьте программу выводящую на экран все числа от - 10 до 10

---

Answer 1

// Выбирайте, тут три цикла, while, repeat и for

//------------------------

program LoopWhile;

begin

 var (a, b) := (-10, 10);

 while a

 begin

   Println(a, Abs(a));

   a += 1

 end;

end.

//------------------------

program LoopRepeat;

begin

 var (a, b) := (-10, 10);

 repeat

   Println(a, Abs(a));

   a += 1

 until a > b;

end.

//------------------------

program LoopFor;

begin

 var (a, b) := (-10, 10);

 for var i := a to b do

   Println(i, Abs(i));

end.

Comments

Это будет работать в PascalABC.NET

---

Можно еще рекурсией

---

procedure Rec(a, b: integer); procedure Rec_(a: integer); begin if a > b then exit else begin Println(a, Abs(a)); Rec_(a + 1); end end;begin Rec_(a)end;begin var (a, b) := (-10, 10); Rec(a, b)end.

---

можно еще циклом foreach

---

begin foreach var x in Range(-10, 10) do Println(x, Abs(x))end.

---

foreach самый короткий, меньше всего писать =)