Рекурсия \\ вывести числа от н до 1000 кратные 3

  • Автор темы Veronika999
  • Дата начала
Статус
Закрыто для дальнейших ответов.
V

Veronika999

#1
ЗАДАНИЕ: Написать программу, печатающую числа, кратные трем, начиная с заданного 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
 
Статус
Закрыто для дальнейших ответов.