Реши эти задачи на Pascal ABC, используя цикл for:
1) Сумма нечётных чисел от 1 до 100.
2) Сумма нечётных и произведение чётных чисел от 1 до 100.
3) Сумма квадратов от 1 до 10.
4) Количество двузначных чисел, кратных 3.
5) Количество двузначных чисел, кратных 2 и 3.

1. Сумма нечётных чисел от 1 до 100

Нечётные числа в этом диапазоне: 1, 3, 5, …, 99. В цикле увеличиваем переменную i сразу на 2.

program SumOdd;
var
  i, s: integer;
begin
  s := 0;
  
  for i := 1 to 100 step 2 do
    s := s + i;
    
  writeln('Сумма нечётных чисел = ', s);
end.

Результат:

Сумма нечётных чисел = 2500

2. Сумма нечётных и произведение чётных чисел от 1 до 100

Для произведения чётных чисел нужен тип BigInteger, потому что результат очень большой и не помещается в обычный тип integer.

program SumOddProductEven;
uses System.Numerics;
var
  i: integer;
  sumOdd, productEven: BigInteger;
begin
  sumOdd := 0;
  productEven := 1;
  
  for i := 1 to 100 do
  begin
    if i mod 2 = 1 then
      sumOdd := sumOdd + i
    else
      productEven := productEven * i;
  end;
  
  writeln('Сумма нечётных чисел = ', sumOdd);
  writeln('Произведение чётных чисел = ', productEven);
end.

Сумма нечётных чисел будет равна 2500.

3. Сумма квадратов чисел от 1 до 10

В переменную s добавляется квадрат каждого числа: 1² + 2² + 3² + … + 10².

program SumSquares;
var
  i, s: integer;
begin
  s := 0;
  
  for i := 1 to 10 do
    s := s + i * i;
    
  writeln('Сумма квадратов = ', s);
end.

Результат:

Сумма квадратов = 385

4. Количество двузначных чисел, кратных 3

Двузначные числа находятся в диапазоне от 10 до 99. Число кратно 3, если остаток от деления на 3 равен нулю.

program CountMultiplesOf3;
var
  i, count: integer;
begin
  count := 0;
  
  for i := 10 to 99 do
    if i mod 3 = 0 then
      count := count + 1;
      
  writeln('Количество двузначных чисел, кратных 3 = ', count);
end.

Результат:

Количество двузначных чисел, кратных 3 = 30

5. Количество двузначных чисел, кратных 2 и 3

Число должно одновременно делиться и на 2, и на 3. Это означает, что оно кратно 6.

program CountMultiplesOf2And3;
var
  i, count: integer;
begin
  count := 0;
  
  for i := 10 to 99 do
    if (i mod 2 = 0) and (i mod 3 = 0) then
      count := count + 1;
      
  writeln('Количество двузначных чисел, кратных 2 и 3 = ', count);
end.

Результат:

Количество двузначных чисел, кратных 2 и 3 = 15