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