Трансфер з Turbo Prologa до Visual Prolog
Роботодавець
[no-member:pro]Владислав[/no-member:pro]Владислав
Параметри проєкту
Варіант співпраціОдноразовий проєкт
РозділРозробка програм
Передоплатабез передоплат
Способи оплатиГотівка, Банківський переказ
Прийом заявокзавершено
Опис проєкту
Система усунення несправностей автомобіля для турбо Пролога є експертом. Програма просить питання, відповіді на людину, а потім ми отримуємо відповідь програми. Що таке проблема в машині, за його ознаками.
І є знання бази.
Питання, які допоможуть перенести програму до консолі Visual Prolog. Я буду платити монету!
Програмний код на базі Турбо Пролога та знання.
[HGHLIGHT="Пролог"]
КУРСИ
І=інтегер
S=втягувати
C=char
Лі=і*
База даних - знання
Конд(i,s)
Рулі (s,li)
DATABASE - діалогове вікно
Конд_іс (i,c)
ПРЕДІКАТ
Початок.
Автомобілі
Перевірити(li)
Тест_cond(i)
Оновити
Додати_cond(li)
Друк_cond(i,li,li)
Read_cond(c,li,li)
Винники (i,li,li,i)
Wr_cond(c,i,li,li)
New_cond(i,li,li)
Read_true_char(c)
Тест(c,c)
Юридичні послуги
Початок:
Контакт ("exp.DDDB",
, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,
("Помічник непольадоки",nl.
("Овецький наголос, я ykazgy ploblemy"),nl,
авто
Витратити (_, Діалог),
Контакты _ УКРПОШТА
nl,nl,write (Mogy snova vam pomoch? (1 - Да, 2 - Чистий) "
укр eng рус eng рус eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng укр eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng
C=1,!, початок.
Початок:
nl,nl,write("******************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************** Довгий встреч "
читчар(_).
Автомобілі:-
правило(X,L),
реєстрація(L),
nl,nl,write("********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
("* Оприела неполадку:",X),nl.
Я да? (1 - Да, 2 - Чистий) "
c=1_true_char(C), C=1!
Автомобілі:-
******************************************************************************************************************* Я не ЗНАЮ, Что ето за Польомка", нд, нд,
⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇
оновлення.
Оновлення:-
nl,write("Відео Непольські:";
читлн(С),
add_cond(L),
стверджувати(с,Л),кноулин,
Зберегти ("exp.ddb", knowledge.
Додати_cond(L):-
... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
nl,nl,write("********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
Друк_cond(1, [],L1),
nl,write("Ізвельно li o nem esho chto-nibud?? (1 - Да, 2 - Чистий) "
укр eng рус eng рус eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng укр eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng
ТУ У КАФЕДРИ (C,L1,L).
Додати_cond(L):-
[], [],[], L[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[]],[],[]]],[],[],[],[],[]],[],[],[],[]],[]],[]],[],[],[]],[]],[]],[]],[[]],[]]]],[[[]]]]]]]]]]]]]]]]]]]]]],[:]]]]]]]]]]]]]]]],[:],[:]]]]]]]]]]]]]]]]]]]]]]]]],[:]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],[:[:[[[[:[:[:[:[:[:[:]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]][[:[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
Друк_cond(H,L,L):-
не(cond(H,_),!
Друк_cond(H,L1):-
...............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................
конд(H,T),
H1=H+1,
пн,врит(Т),
pdf pdf pdf zip .jpg .zip .pdf .zip .zip .zip .zip .pdf .zip .zip .pdf .zip .zip .pdf .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .
Друк_cond(H,L1):-
H1=H+1,
Друк_cond(H1,L,L1).
Дата завантаження: 1', L, L2):-
Экспресс (КСНУМКС, ЛКСНУМКС, Н),
Універсальні інженерні рішення, LLC, UA, 2 km +3 ads
[:en]Bot[:en]B[:en]B[:en]B[:en]B[:]B[:]B[:]B[:]B[:]B[:]B[:]B[:]]B[:]]B[:]]B[:]]]B[:]]B[:]B[:]]B[:]]]B[:]B[:]]]B[:]]]]]]]B[:]]]]]]]]][:]]]]]]][:]]]]]]]][:]]]]]]]]]]]]]]]]]]]]]]]][:[:[:[:[:[:]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]][:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
Виклична (Н,Л,Л,Н):
не(cond(N,_),!
РџРμлаРNoталаРNoтаРNoталаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoталРμРNoтаРNoСЊРμРNoС‚РμРNo дтлРNoтлРμР»РNoСЊСЊСЊСЊС‚РNoСЊСЊСЊСЊС‚РNo РґС‚РNo РґСЊС‚РμРNo РґСЊСЊСЊСЊСЊСЊС‚РNo РґСЊС‚РNo РґСЊСЊСЊСЊСЊСЊСЊСЊСЊСЊС‚РμаллаРμР»РNo РґСЊСЊСЊС‚РNo РґСЊСЊС‚РNo РґСЊС‚РNo РґСЊС‚РNo РґСЊСЊС‚РNo РґСЊС‚РNo РґСЊСЊСЊСЊСЊСЊС‚РNo РґС‹РNo РґСЊСЊС‚РNo РґС‚РNo РґСЊСЊ РґС‚РNo РґС‚РμРμРNo РґС‹РμРμРNo РґС‚РμРμРNo РґС‹РNo РґС‹РμРNo РґС‚РNo дыытРμРμРμРμРμРNo РґС‹РNo РґСЊ РґС‚РμРNo РґС‚РμРμРμРμРμРμРμРNo дыаРμРμРμРNo РґС‚РμРNo Рґ
...............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................
Н1 = Н+1,
Экспо (N1, L1, L2).
РџРμлаРNoталаРNoтаРNoталаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoталРμРNoтаРNoСЊРμРNoС‚РμРNo дтлРNoтлРμР»РNoСЊСЊСЊСЊС‚РNoСЊСЊСЊСЊС‚РNo РґС‚РNo РґСЊС‚РμРNo РґСЊСЊСЊСЊСЊСЊС‚РNo РґСЊС‚РNo РґСЊСЊСЊСЊСЊСЊСЊСЊСЊСЊС‚РμаллаРμР»РNo РґСЊСЊСЊС‚РNo РґСЊСЊС‚РNo РґСЊС‚РNo РґСЊС‚РNo РґСЊСЊС‚РNo РґСЊС‚РNo РґСЊСЊСЊСЊСЊСЊС‚РNo РґС‹РNo РґСЊСЊС‚РNo РґС‚РNo РґСЊСЊ РґС‚РNo РґС‚РμРμРNo РґС‹РμРμРNo РґС‚РμРμРNo РґС‹РNo РґС‹РμРNo РґС‚РNo дыытРμРμРμРμРμРNo РґС‹РNo РґСЊ РґС‚РμРNo РґС‚РμРμРμРμРμРμРμРNo дыаРμРμРμРNo РґС‚РμРNo Рґ
конд(N,S),
, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , (1 - Да, 2 - Чистий) "
укр eng рус eng рус eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng укр eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng
⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇
Н1 = Н+1,
Экспо (N1, L2, L1, N2).
Універсальні інженерні рішення, LLC, UA, Flagma.com
Wr_cond('2',_,L):-!
Універсальні інженерні рішення (N,L,L1):-
nl,write("Ест' esho prichini? (1 - Да, 2 - Чистий) "
укр eng рус eng рус eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng укр eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng
А='1'',
, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,
nl,write("New otlichintelinoe cvoistvo nepoladki '"), читати(S),
твердження(cond(N,S),
Н1 = Н+1,
Універсальні інженерні рішення, LLC, UA, +1 ad
Нова_код(_,L,L).
[Hot] :-
test_cond(H),
реєстрація(Т).
Перевірити([]).
Тест_cond(H):-
...............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................
Тест_cond(H):-
cond_is(H,'2'),!
не вдалося.
test_cond(H):-
конд(H,S),
, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , (1 - Да, 2 - Чистий) "
укр eng рус eng рус eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng укр eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng
твердження(cond_is(H,A),
Тест_cond(H)
HYIP и SSL
читчар(C1),
Тест(C1,C)
Тест(C,C):-
Ø1 мм
І є знання бази.
Питання, які допоможуть перенести програму до консолі Visual Prolog. Я буду платити монету!
Програмний код на базі Турбо Пролога та знання.
[HGHLIGHT="Пролог"]
КУРСИ
І=інтегер
S=втягувати
C=char
Лі=і*
База даних - знання
Конд(i,s)
Рулі (s,li)
DATABASE - діалогове вікно
Конд_іс (i,c)
ПРЕДІКАТ
Початок.
Автомобілі
Перевірити(li)
Тест_cond(i)
Оновити
Додати_cond(li)
Друк_cond(i,li,li)
Read_cond(c,li,li)
Винники (i,li,li,i)
Wr_cond(c,i,li,li)
New_cond(i,li,li)
Read_true_char(c)
Тест(c,c)
Юридичні послуги
Початок:
Контакт ("exp.DDDB",
, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,
("Помічник непольадоки",nl.
("Овецький наголос, я ykazgy ploblemy"),nl,
авто
Витратити (_, Діалог),
Контакты _ УКРПОШТА
nl,nl,write (Mogy snova vam pomoch? (1 - Да, 2 - Чистий) "
укр eng рус eng рус eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng укр eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng
C=1,!, початок.
Початок:
nl,nl,write("******************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************** Довгий встреч "
читчар(_).
Автомобілі:-
правило(X,L),
реєстрація(L),
nl,nl,write("********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
("* Оприела неполадку:",X),nl.
Я да? (1 - Да, 2 - Чистий) "
c=1_true_char(C), C=1!
Автомобілі:-
******************************************************************************************************************* Я не ЗНАЮ, Что ето за Польомка", нд, нд,
⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇
оновлення.
Оновлення:-
nl,write("Відео Непольські:";
читлн(С),
add_cond(L),
стверджувати(с,Л),кноулин,
Зберегти ("exp.ddb", knowledge.
Додати_cond(L):-
... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
nl,nl,write("********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
Друк_cond(1, [],L1),
nl,write("Ізвельно li o nem esho chto-nibud?? (1 - Да, 2 - Чистий) "
укр eng рус eng рус eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng укр eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng
ТУ У КАФЕДРИ (C,L1,L).
Додати_cond(L):-
[], [],[], L[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[]],[],[]]],[],[],[],[],[]],[],[],[],[]],[]],[]],[],[],[]],[]],[]],[]],[[]],[]]]],[[[]]]]]]]]]]]]]]]]]]]]]],[:]]]]]]]]]]]]]]]],[:],[:]]]]]]]]]]]]]]]]]]]]]]]]],[:]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]],[:[:[[[[:[:[:[:[:[:[:]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]][[:[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
Друк_cond(H,L,L):-
не(cond(H,_),!
Друк_cond(H,L1):-
...............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................
конд(H,T),
H1=H+1,
пн,врит(Т),
pdf pdf pdf zip .jpg .zip .pdf .zip .zip .zip .zip .pdf .zip .zip .pdf .zip .zip .pdf .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .zip .
Друк_cond(H,L1):-
H1=H+1,
Друк_cond(H1,L,L1).
Дата завантаження: 1', L, L2):-
Экспресс (КСНУМКС, ЛКСНУМКС, Н),
Універсальні інженерні рішення, LLC, UA, 2 km +3 ads
[:en]Bot[:en]B[:en]B[:en]B[:en]B[:]B[:]B[:]B[:]B[:]B[:]B[:]B[:]]B[:]]B[:]]B[:]]]B[:]]B[:]B[:]]B[:]]]B[:]B[:]]]B[:]]]]]]]B[:]]]]]]]]][:]]]]]]][:]]]]]]]][:]]]]]]]]]]]]]]]]]]]]]]]][:[:[:[:[:[:]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]][:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:[:]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
Виклична (Н,Л,Л,Н):
не(cond(N,_),!
РџРμлаРNoталаРNoтаРNoталаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoталРμРNoтаРNoСЊРμРNoС‚РμРNo дтлРNoтлРμР»РNoСЊСЊСЊСЊС‚РNoСЊСЊСЊСЊС‚РNo РґС‚РNo РґСЊС‚РμРNo РґСЊСЊСЊСЊСЊСЊС‚РNo РґСЊС‚РNo РґСЊСЊСЊСЊСЊСЊСЊСЊСЊСЊС‚РμаллаРμР»РNo РґСЊСЊСЊС‚РNo РґСЊСЊС‚РNo РґСЊС‚РNo РґСЊС‚РNo РґСЊСЊС‚РNo РґСЊС‚РNo РґСЊСЊСЊСЊСЊСЊС‚РNo РґС‹РNo РґСЊСЊС‚РNo РґС‚РNo РґСЊСЊ РґС‚РNo РґС‚РμРμРNo РґС‹РμРμРNo РґС‚РμРμРNo РґС‹РNo РґС‹РμРNo РґС‚РNo дыытРμРμРμРμРμРNo РґС‹РNo РґСЊ РґС‚РμРNo РґС‚РμРμРμРμРμРμРμРNo дыаРμРμРμРNo РґС‚РμРNo Рґ
...............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................
Н1 = Н+1,
Экспо (N1, L1, L2).
РџРμлаРNoталаРNoтаРNoталаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoтаРNoталРμРNoтаРNoСЊРμРNoС‚РμРNo дтлРNoтлРμР»РNoСЊСЊСЊСЊС‚РNoСЊСЊСЊСЊС‚РNo РґС‚РNo РґСЊС‚РμРNo РґСЊСЊСЊСЊСЊСЊС‚РNo РґСЊС‚РNo РґСЊСЊСЊСЊСЊСЊСЊСЊСЊСЊС‚РμаллаРμР»РNo РґСЊСЊСЊС‚РNo РґСЊСЊС‚РNo РґСЊС‚РNo РґСЊС‚РNo РґСЊСЊС‚РNo РґСЊС‚РNo РґСЊСЊСЊСЊСЊСЊС‚РNo РґС‹РNo РґСЊСЊС‚РNo РґС‚РNo РґСЊСЊ РґС‚РNo РґС‚РμРμРNo РґС‹РμРμРNo РґС‚РμРμРNo РґС‹РNo РґС‹РμРNo РґС‚РNo дыытРμРμРμРμРμРNo РґС‹РNo РґСЊ РґС‚РμРNo РґС‚РμРμРμРμРμРμРμРNo дыаРμРμРμРNo РґС‚РμРNo Рґ
конд(N,S),
, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , (1 - Да, 2 - Чистий) "
укр eng рус eng рус eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng укр eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng
⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇ ⁇
Н1 = Н+1,
Экспо (N1, L2, L1, N2).
Універсальні інженерні рішення, LLC, UA, Flagma.com
Wr_cond('2',_,L):-!
Універсальні інженерні рішення (N,L,L1):-
nl,write("Ест' esho prichini? (1 - Да, 2 - Чистий) "
укр eng рус eng рус eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng укр eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng
А='1'',
, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,
nl,write("New otlichintelinoe cvoistvo nepoladki '"), читати(S),
твердження(cond(N,S),
Н1 = Н+1,
Універсальні інженерні рішення, LLC, UA, +1 ad
Нова_код(_,L,L).
[Hot] :-
test_cond(H),
реєстрація(Т).
Перевірити([]).
Тест_cond(H):-
...............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................
Тест_cond(H):-
cond_is(H,'2'),!
не вдалося.
test_cond(H):-
конд(H,S),
, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , (1 - Да, 2 - Чистий) "
укр eng рус eng рус eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng укр eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng eng
твердження(cond_is(H,A),
Тест_cond(H)
HYIP и SSL
читчар(C1),
Тест(C1,C)
Тест(C,C):-
Ø1 мм
