1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

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

    Veronika999 Гость

    Репутация:
    0
    ЗАДАНИЕ: Написать программу, печатающую числа, кратные трем, начиная с заданного 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
     
Загрузка...
Похожие Темы - Рекурсия вывести числа
  1. Heavy10110
    Ответов:
    2
    Просмотров:
    207
  2. vera2014
    Ответов:
    0
    Просмотров:
    1.305
  3. 95процентов
    Ответов:
    7
    Просмотров:
    2.013
  4. 95процентов
    Ответов:
    0
    Просмотров:
    1.017
  5. 95процентов
    Ответов:
    0
    Просмотров:
    1.085
Статус темы:
Закрыта.

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