РЕШИТЕ Задание по информатике! ПОЖалуйста! Срочно! 1. Вычислить произведение нечетных...

Question

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

Comments

программу написать?

---

Да

---

Точнее просто команды

Answer 1

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.

Answer 2

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.

Comments

Так вы можете по такому плану решить мне хотя бы 2,3 буду очень признателен

---

2,3 решены правильно, проблема только с первой

---

В этот язык вошло все лучшее, что есть в современных языках. Он задумывался под девизом "все, что решают в школе, можно сделать в пару строк"

---

Я не понял, это вы мне пишете про "план"? Мое решение - это все три Ваших задачи. Каждая строка - одна задача. Там же на скрине три ответа.

---

Я отвечала человеку)

---

Извините, я не думал, что я не человек )))

---

По краней мере, меня так учитель просит.

---

Да я же не против. Вы даже не указали в вопросе, что Вам на Паскале надо ))))))

---

Да на паскале

---

Точнеее на базике