Гость | Veronika url://forum.message:2492 Рекурсия \\ вывести числа от н до 1000 кратные 3 Veronika Написать программу, печатающую числа, кратные трем, начиная с заданного 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("конец"). Это сообщение было отредактировано гостем, оставившим это сообщение 18.05.08 12:25. |
Июл, 2004 Сообщений: 923 | popoff url://forum.message:2493 predicates
w(integer,integer)
clauses
w(N,N):-N<1000,N mod 3=0.
w(N,X):-N<1000,N1=N+1,w(N1,X). ________________________________ Если не будет деревьев — нам нечем будет дышать, если вода загрязнится — нам нечего будет пить. |