-цикл с эпилогом
-цикл с параметром
-циклический цикл
-цикл с неизвестной величиной

// PascalABC.NET 3.2, сборка 1401 от 14.03.2017
// Внимание! Если программа не работает, обновите версию!

1. Решение без проверки вводимых данных

begin
  var a,b:integer;
  Read(a,b);
  var P:=ArrFill(30,0);
  for var i:=a-1 to b-1 do P[i]:=2;
  P.Println
end.

Пример
2 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

2. Решение с контролем ввода

begin
  var a:=ReadInteger('Введите a от 1 до 30:');
  if a<1 then begin Writeln('Неверно'); Exit end;
  var b:=ReadInteger('Введите b от '+a.ToString+' до 30:');
  if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end;
  var P:=ArrFill(30,0);
  for var i:=a-1 to b-1 do P[i]:=2;
  P.Println
end.

Пример
Введите a от 1 до 30: 2
Введите b от 2 до 30: 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

Первая задачка:

#include <iostream>

#include <ctime>

using namespace std;

int main() {

setlocale(LC_ALL, "rus");

srand(time(NULL));

int x,sr1,sr2,sr=0;

for (int i = 0; i < 3; i++) {

 for (int i = 0; i < 10; i++) {

  x = 1 + rand() % 10;

  sr += x;

  cout << x << " ";

 }

 cout << endl;

 cout << "Среднее арифметическое этой последовательности: " << sr / 10;

 cout << endl;

}

return 0;

}

Вторая задачка:

#include <iostream>

#include "math.h"

using namespace std;

int main() {

int n;

double s=0,x;

cin >> n >> x;

for (int i = 1; i <= n; i++) {

 s += sin(pow(x, i));

}

cout << s;

return 0;

}