Question

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

Answer 1

1. k:=1;
for i:=40 to 160 do
if i mod 2 <>0 then k:=k*i;
write(k);
end.
2. k:=0;
for i:=1500 to 3000 do
if i mod 150=0 then k:=k+i;
write(k);
end.
3.k:=0;
for i:=2510 to 7000 do
if i mod 17=0 then k:=k+1;
write(k);
end.

начало всех программ будет одинаковое:
Program abc;
var i,k:integer;
begin

Answer 2

Привет! Я могу помочь тебе с этими задачами по информатике. Давай разберем каждое задание по отдельности:

1. Чтобы вычислить произведение нечетных чисел от 40 до 160, нам нужно перемножить все нечетные числа в этом диапазоне. В Паскале это можно сделать с помощью цикла. Вот пример кода на Паскале:

var
  i: integer;
  product: longint;
begin
  product := 1;
  for i := 41 to 159 do
  begin
    if i mod 2 <> 0 then
      product := product * i;
  end;
  writeln('Произведение нечетных чисел от 40 до 160: ', product);
end.

2. Чтобы вычислить сумму чисел, делящихся на 150, от 1500 до 3000, мы можем использовать цикл и проверять, делится ли текущее число на 150 без остатка. Вот пример кода на Паскале:

var
  i: integer;
  sum: longint;
begin
  sum := 0;
  for i := 1500 to 3000 do
  begin
    if i mod 150 = 0 then
      sum := sum + i;
  end;
  writeln('Сумма чисел, делящихся на 150 от 1500 до 3000: ', sum);
end.

3. Чтобы определить количество чисел, делящихся на 17, от 2510 до 7000, мы также можем использовать цикл и проверять, делится ли текущее число на 17 без остатка. Вот пример кода на Паскале:

var
  i, count: integer;
begin
  count := 0;
  for i := 2510 to 7000 do
  begin
    if i mod 17 = 0 then
      count := count + 1;
  end;
  writeln('Количество чисел, делящихся на 17 от 2510 до 7000: ', count);
end.

Надеюсь, это поможет! Если у тебя есть еще вопросы, не стесняйся задавать.