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

Тема в разделе "Другие", создана пользователем Veronika999, 18 май 2008.

Статус темы:
Закрыта.
  1. Veronika999

    Veronika999 Гость

    ЗАДАНИЕ: Написать программу, печатающую числа, кратные трем, начиная с заданного n и до 1000.
    Вот что уже смогла придумать, дальше не знаю... что делать, помогите....

    Код (Text):
    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
     
Загрузка...
Похожие Темы - Рекурсия вывести числа
  1. vera2014
    Ответов:
    0
    Просмотров:
    1.070
  2. 95процентов
    Ответов:
    7
    Просмотров:
    1.911
  3. 95процентов
    Ответов:
    0
    Просмотров:
    945
  4. 95процентов
    Ответов:
    0
    Просмотров:
    1.015
  5. vladis222
    Ответов:
    10
    Просмотров:
    2.382
Статус темы:
Закрыта.

Поделиться этой страницей