Question

РЕШИТЕ Задание по информатике! ПОЖалуйста! Срочно!
1. Вычислить произведение нечетных чисел от 40 до 160
2. Вычислить сумму чисел делящихся на 150 от 1500 до 3000
3.Определить кол-во чисел делящихся на 17 от 2510 до 7000
Решение прошу подробное.

Answer 1

1) var
  pr: real;
  i: integer;

begin
  pr := 1;
  for i := 40 to 160 do
    if (i mod 2 <> 0) then
      pr := pr * i;
  writeln(pr);
end.

2) var
  i, sum: longint;

begin
  sum := 0;
  for i := 1500 to 3000 do
    if (i mod 150 = 0) then
      inc(sum, i);
  writeln(sum);
end.

3) var
  kolvo, i: longint;

begin
  kolvo := 0;
  for i := 2510 to 7000 do
    if (i mod 17 = 0) then
      inc(kolvo);
  writeln(kolvo);
end.

Answer 2

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Range(41,160,2).Aggregate(BigInteger(1),(i,j)->i*j).Println;
  Range(1500,3000).Where(t->t mod 150=0).Sum.Println;
  Range(2500,7000).Where(t->t mod 17=0).Count.Println
end.