Практическая информатика - ответы
Количество вопросов - 392
<OL> <LI>Программирование</LI> <LI>Алгоритмизация</LI> <LI>Проектирование</LI> </OL>:
<P STYLE="color:red; text-align:center;">Этот параграф переопределен стилем</P>:
сумма_списка([],0).сумма_списка([H|T],S):- number(H), сумма_списка(T,S1), S is S1+H.иллюстрирует:
факториал(1,1).факториал(N,R):- integer(N), N>1, N1 is N-1, факториал(N1,R1), R is N*R1.вычисляет:
print "Введите первое число: "; a = gets.to_iprint "Введите второе число: "; b = gets.to_im, n = a, bwhile !((m == 0) || (n == 0)) if m >= n m = m - n else n = n - m endendk = m == 0 ? n : mprint "НОД(#{a},#{b}) = #{k}\n":
<DL> <DT>Отдел маркетинга <DD>Данный отдел занимается продвижением товаров и услуг <DT>Финансовый отдел <DD>Данный отдел занимается финансовыми операциями </DL>:
сумма(X,Y):- integer(X), X<10, Y is X.сумма(X,Y):- integer(X), X1 is X//10, сумма(X1,Y1), Z is X mod 10, Y is Y1+Z.печать_суммы:- write('Введите число (в конце точка): '), read(X), nl, сумма(X,Y), write('Сумма цифр числа '), write(X), write(' равна '), write(Y), nl.печатает:
<A HREF="putfirst.html" TARGET="frame1">Нажмите сюда,</A>чтобы перейти на первую страницусоздает ссылку кадр с именем: