Question

Pascal ABC: 1. [-101,35] найти кол-во кратных 4 2. вычислить 1+2+4+8+16+32...256

Answer 1

Задание 1

program n_1;

var k, i: integer;

begin

   k:=0;

   for i:=-101 to 35 do if i mod 4 = 0 then k:=k+1;

   writeln(k);

end.

Задание 2

program n_2;

var s, i: integer;

begin

   s:=0; i:=1;

   while i<=256 do begin

       s:=s+i; i:=i*2;

   end;

   writeln(s);

end.

Answer 2

Для решения задачи в Pascal ABC, давайте последовательно выполним каждый из пунктов:

1. Найти кол-во кратных 4 в интервале [-101, 35]:

Для этого, нам нужно перебрать все числа в данном интервале и проверить, является ли каждое из них кратным 4. Если число делится на 4 без остатка, то оно является кратным 4. Посчитаем и выведем количество таких чисел.

pascalCopy code
program CountMultiplesOf4;

var
  count, num: integer;

begin
  count := 0;

  for num := -101 to 35 do
  begin
    if num mod 4 = 0 then
      Inc(count);
  end;

  writeln('Количество чисел кратных 4 в интервале [-101, 35]: ', count);
end.

2. Вычислить сумму ряда 1 + 2 + 4 + 8 + 16 + 32 + ... + 256:

Это бесконечная геометрическая прогрессия, но так как у нас есть конечное значение, мы можем воспользоваться формулой суммы геометрической прогрессии для нахождения суммы.

Сумма геометрической прогрессии S_n = a * (r^n - 1) / (r - 1), где a - первый член прогрессии, r - знаменатель прогрессии (отношение каждого следующего члена к предыдущему), n - количество членов прогрессии.

pascalCopy code
program GeometricSeriesSum;

var
  a, r, n, sum: integer;

begin
  a := 1; // первый член прогрессии
  r := 2; // знаменатель прогрессии
  n := 9; // количество членов прогрессии (от 1 до 256)

  sum := a * (Power(r, n) - 1) div (r - 1);

  writeln('Сумма ряда: ', sum);
end.

Обратите внимание, что я использовал значение n := 9, так как в ряде указаны 9 чисел (1, 2, 4, 8, 16, 32, 64, 128, 256). Можно изменить n в зависимости от конкретных требований задачи.