|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
09.10.2012, 18:33 | #1 |
Регистрация: 09.10.2012
Сообщений: 5
|
программа на Паскале
нужно наити произведение всех нечетных целых чисел х таких что а<=x<=b
|
09.10.2012, 19:37 | #2 |
Форумчанин
Регистрация: 21.10.2010
Сообщений: 588
|
Код:
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681 |
09.10.2012, 20:19 | #3 |
Регистрация: 09.10.2012
Сообщений: 5
|
program qq;
var a, b, x, p:integer; begin writeln('vvedite 4islo a'); readln(a); writeln('vvedite 4islo b'); readln(b); for x:=a to b do begin if x mod 2=1 then begin p:=p*x; write(x, ' '); end; end; write(p); end. что тут не так? почему пишет что произведение нечетных равно 0??? |
09.10.2012, 20:21 | #4 | |
Участник клуба
Регистрация: 30.01.2011
Сообщений: 1,578
|
Цитата:
p:=1; пропишите после первого бегин но перед началом цикла...
пишу код не только за печеньки
|
|
09.10.2012, 20:34 | #5 |
Регистрация: 09.10.2012
Сообщений: 5
|
большое спасибо!:*
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
программа на паскале | Мариетта | Помощь студентам | 4 | 07.01.2012 23:49 |
Программа в паскале | ГОУСТ | Помощь студентам | 1 | 28.11.2010 23:45 |
Программа на Паскале. | Dukem | Помощь студентам | 1 | 25.09.2010 22:20 |
программа в паскале | flashpoint412 | Помощь студентам | 0 | 07.06.2010 15:17 |
Программа на паскале | Absent | Помощь студентам | 3 | 28.05.2009 17:14 |