k-payl

"-A" -> "A!"
"-B" -> "B!"
"-C" -> "C!"

"!A" -> "-"
"!B" -> "-"
"!C" -> "-"

"!" ->. ""
"-" ->. ""

k-payl

%reverse list
reverse_main(L1, L2) :- reverse_iter(L1, L2, []).
reverse_iter([], L2, L2):-!.
reverse_iter([X1|T1], L2, Akk) :- reverse_iter(T1, L2, [X1|Akk]).

k-payl

%delete from 1st lst all composite numbers
main([], []).
main([H|T], Akk) :- 	just(H),!, main(T, Akk1), Akk = [H|Akk1];
			main(T, Akk).
			 

just(V):- iter(V, 2).
iter(1, _):-!,fail.
iter(V, Par):- 	Par >= V, !;
		V mod Par =\= 0,P1 is Par+1, iter(V, P1).

k-payl

symm(List) :- iter(List, []).
iter(L, L):-!.
iter([_|L], L):-!.
iter([H|T], Akk) :- iter(T, [H|Akk]).

k-payl

.486
.MODEL Flat, StdCall
INCLUDE stdlib.inc
INCLUDELIB msvcrt.lib
.CODE
main:
mov eax, 1
mov ebx, 2
add eax, ebx
call exit

k-payl

using UnityEngine;
using System.Collections;

public class MouseOrbit : MonoBehaviour {


        public Transform target;
        public float distance = 10.0f;
 
        public float xSpeed = 250.0f;

k-payl

select z. КодКлиента ,z. КодЗаказа, sum(zo.Цена * zo.Количество * (1-zo.Скидка)) + z.СтоимостьДоставки stoimost, 
datediff (day, ДатаРазмещения, ДатаИсполнения) количество_дней 
from Заказы z inner join Заказано zo on z.КодЗаказа=zo.КодЗаказа and  z.ДатаИсполнения is not null
group by z.КодКлиента, z.КодЗаказа, z.СтоимостьДоставки,datediff (day, ДатаРазмещения, ДатаИсполнения)


select z.КодЗаказа, s.Имя
from Заказы z inner join Сотрудники s on z.КодСотрудника=s.КодСотрудника

k-payl

select z. КодКлиента ,z. КодЗаказа, sum(zo.Цена * zo.Количество * (1-zo.Скидка)) + z.СтоимостьДоставки stoimost, 
datediff (day, ДатаРазмещения, ДатаИсполнения) количество_дней 
from Заказы z inner join Заказано zo on z.КодЗаказа=zo.КодЗаказа and  z.ДатаИсполнения is not null
group by z.КодКлиента, z.КодЗаказа, z.СтоимостьДоставки,datediff (day, ДатаРазмещения, ДатаИсполнения)


select z.КодЗаказа, s.Имя
from Заказы z inner join Сотрудники s on z.КодСотрудника=s.КодСотрудника