Question

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

Answer 1

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

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

program LoopWhile;

begin

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

 while a <= b do

 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.

Answer 2

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

Answer 3

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.

Answer 4

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

Answer 5

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

Answer 6

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