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

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

Veronika999

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ