Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2012, 12:27   #1
Иван Грозный
Новичок
Джуниор
 
Регистрация: 20.05.2012
Сообщений: 4
По умолчанию легкая задача

Найти произведение положительных чисел кратных 3. Нужно написать программу. Очень срочно!!!
Иван Грозный вне форума Ответить с цитированием
Старый 21.05.2012, 13:00   #2
Noor
Участник клуба
 
Аватар для Noor
 
Регистрация: 01.11.2006
Сообщений: 1,082
По умолчанию

Поиск кратного числа, остальное сами
Код:
For (i mod 3=0)
sum:=sum*i;
Noor вне форума Ответить с цитированием
Старый 21.05.2012, 13:13   #3
Иван Грозный
Новичок
Джуниор
 
Регистрация: 20.05.2012
Сообщений: 4
По умолчанию

Учитель сказал что это неправильно. Типа это будет правильно только для си+.
Блин щас уже урок кончится а мне сдавать ему эту задачу. Помогите плиииз!@
Иван Грозный вне форума Ответить с цитированием
Старый 21.05.2012, 13:15   #4
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Цитата:
это будет правильно только для си+
Где это он там Си увидел.....
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 21.05.2012, 13:19   #5
Иван Грозный
Новичок
Джуниор
 
Регистрация: 20.05.2012
Сообщений: 4
По умолчанию

Не знаю. Я его спрашивала а он типа: думай сама и т.п. напишите как-нибудь по-другому.
Иван Грозный вне форума Ответить с цитированием
Старый 21.05.2012, 13:47   #6
Niro
Форумчанин
 
Аватар для Niro
 
Регистрация: 23.09.2010
Сообщений: 682
По умолчанию

хм, ну напишем за вас программу?, а толку, ведь то что вы понесли преподавателю, это бред, в том смысле что это никакое не решение задачи, а только указание основных моментов.
Значит вы абсолютно не разбираетесь в предмете, опять же напишем, вы показываете, препод ведь поймет что ни вы писали..
ладно
Код:
pr:=1;
for i:=1 to 20 do
  if i mod 3 = 0 then pr:=pr*i;
кстати, у вас там условие не точное, не указано произведение скольки чисел, откуда эти числа брать..
P.S. это опять же код, вам нужно объявить переменные в разделе var и вывести результат на экран, наверное
но тут уж решайте сами
Тоесть не весь код, опечатался
Проще всего признать свою ошибку.
Гораздо труднее еЁ осознать и исправить.

Последний раз редактировалось Niro; 21.05.2012 в 14:13.
Niro вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
легкая задача - график параболы gylayko Помощь студентам 3 27.02.2012 15:13
легкая задача на реализацию videolord Общие вопросы C/C++ 4 18.12.2011 16:02
задача не самая легкая Arinca Паскаль, Turbo Pascal, PascalABC.NET 0 17.04.2011 22:25
Помогите легкая задача?но не выходит ulyanich Microsoft Office Excel 1 24.12.2009 13:06
легкая задача vAdiM_Kubski Паскаль, Turbo Pascal, PascalABC.NET 2 25.09.2009 22:49