![]() |
|
Модераторы: Poseidon |
![]()
|
|
| Veronika999 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 18.5.2008 Репутация: нет Всего: нет |
ЗАДАНИЕ: Написать программу, печатающую числа, кратные трем, начиная с заданного n и до 1000.
Вот что уже смогла придумать, дальше не знаю... что делать, помогите.... predicates nondeterm write_number(integer) clauses write_number(N) :- N< 1000 , N mod 3 =0, write(" ", N), nl, write_number(N +1). write_number(N) :- N< 1000 , write_number(N+1). goal write("начало:"), nl,nl, readint(N), write_number(N), nl,nl, write("конец"). ->мы пишем на Visual Prolog 5.2 |
|||
|
||||
| t_gran |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 621 Регистрация: 13.11.2007 Где: г.Усть-Илимск Репутация: 33 Всего: 37 |
-------------------- Я знаю, что ничего не знаю© Сократ ![]() |
|||
|
||||
| arilou |
|
|||
![]() Великий МунаБудвин ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 2646 Регистрация: 15.7.2004 Где: город-герой Минск Репутация: нет Всего: 61 |
Модератор: перенесено из Программирования игр
|
|||
|
||||
![]()
|
| Правила форума "Центр помощи" | |
|
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Центр помощи | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |