1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

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

Рекурсия \\ вывести числа от н до 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
     
Загрузка...
Статус темы:
Закрыта.

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