Программирование, 1 ступень

Автор: Воскресная компьютерная школа мехмата ЮФУ (sunschool.mmcs.sfedu.ru), 2016

Оператор цикла For

CWA5For1.

{
Дополните заголовок цикла for так, чтобы программа напечатала
30 звездочек на одной строке:

******************************
}

begin
  for var i :=
    Print('*');
end.

CWA5For2.

{
Дополните заголовок цикла for так, чтобы программа напечатала
числа от 1 до 9 на одной строке:

1 2 3 4 5 6 7 8 9
}

begin
  for var i :=
    Print(i);
end.

CWA5For3.

{
Дополните заголовок цикла for так, чтобы программа напечатала
числа от 19 до 11 на одной строке в порядке убывания:

19 18 17 16 15 14 13 12 11
}

begin
  for var i :=
    Print(i);
end.

CWA5For4.

{
Укажите в операторе Print выражение (содержащее переменную i), которое
позволит напечатать числа от 2 до 18 с шагом 2:

2 4 6 8 10 12 14 16 18
}

begin
  for var i := 1 to 9 do
    Print( );
end.

CWA5For5.

{
Укажите в операторе Print выражение (содержащее переменную i), которое
позволит напечатать первые 10 нечетных чисел:

1 3 5 7 9 11 13 15 17 19
}

begin
  for var i := 1 to 10 do
    Print( );
end.

CWA5For6.

{
Дополните заголовок цикла for и оператор присваивания так,
чтобы программа напечатала числа от 5 до 45 с шагом 5:

5 10 15 20 25 30 35 40 45
}

begin
  var k := 5;
  for var i :=
  begin
    Print(k);
    k :=
  end;
end.

CWA5For7.

{
В предыдущей задаче требовалось напечатать числа от 5 до 45 с шагом 5:

5 10 15 20 25 30 35 40 45

Решите эту же задачу, не используя вспомогательную переменную. Для этого
укажите в операторе Print подходящее выражение, содержащее переменную i.
}

begin
  for var i := 1 to 9 do
    Print( );
end.

CWA5For8.

{
Дополните заголовок цикла for и оператор присваивания так,
чтобы программа напечатала вещественные числа от 1.1 до 1.9 с шагом 0.1:

1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9
}

begin
  var k := 1.1;
  for var i :=
  begin
    Print(k);
    k :=
  end;
end.

CWA5For9.

{
В предыдущей задаче требовалось напечатать числа от 1.1 до 1.9 с шагом 0.1:

1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9

Решите эту же задачу, не используя вспомогательную переменную. Для этого
укажите в операторе Print подходящее выражение, содержащее переменную i.
}

begin
  for var i := 1 to 9 do
    Print( );
end.

CWA5For10.

{
Дополните заголовок цикла for и оператор присваивания так,
чтобы программа напечатала начальные степени числа 2:

1 2 4 8 16 32 64 128 256 512 1024
}

begin
  var k := 1;
  for var i :=
  begin
    Print(k);
    k :=
  end;
end.