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

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

Comments

Аа, я понял

---

Значит мне нужно было не по паскалю а по basic

---

Поздравляю!

---

Винни-Пух сидит и ест булочку, подходит Пятачок:
— Винни, дай мне булочку!
— Это не булочка, это пирожок.
— Винни, дай пирожок!
— Это не пирожок, это пряник.
— Винни, ну дай мне пряник!
— Слушай свин, отстань! Ты сам не знаешь чего хочешь!

---

Вспомнился этот анекдот

---

Теперь знаю уже на 100%)

---

А лучше ИНОГДА ходить на занятия, чтобы знать, КАКОЙ ЯЗЫК ИЗУЧАЕТЕ

---

Так, отметил себе: ilia1975: не писать решений, может потом вынести мозг.

---

Бл, я уже точно знаю что я хочу , Напишите решение пожалуйста. Заранее Спасибо.

---

В Последний раз