легкая задача

[Иван Грозный]

Найти произведение положительных чисел кратных 3. Нужно написать программу. Очень срочно!!!

[Noor]

Поиск кратного числа, остальное сами

For (i mod 3=0)
sum:=sum*i;

[Иван Грозный]

Учитель сказал что это неправильно. Типа это будет правильно только для си+.
Блин щас уже урок кончится а мне сдавать ему эту задачу. Помогите плиииз!@

[Valio]

это будет правильно только для си+

Где это он там Си увидел.....

[Иван Грозный]

Не знаю. Я его спрашивала а он типа: думай сама и т.п. напишите как-нибудь по-другому.

[Niro]

хм, ну напишем за вас программу?, а толку, ведь то что вы понесли преподавателю, это бред, в том смысле что это никакое не решение задачи, а только указание основных моментов.
Значит вы абсолютно не разбираетесь в предмете, опять же напишем, вы показываете, препод ведь поймет что ни вы писали..
ладно

pr:=1;
for i:=1 to 20 do
  if i mod 3 = 0 then pr:=pr*i;

кстати, у вас там условие не точное, не указано произведение скольки чисел, откуда эти числа брать..
P.S. это опять же код, вам нужно объявить переменные в разделе var и вывести результат на экран, наверное
но тут уж решайте сами
Тоесть не весь код, опечатался