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.КодСотрудника

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

.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

symm(List) :- iter(List, []).
iter(L, L):-!.
iter([_|L], L):-!.
iter([H|T], Akk) :- iter(T, [H|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

%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

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

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

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

k-payl

"A!A" -> "!AA"
"B!A" -> "!AB"
"C!A" -> "!AC"
"A!B" -> "!BA"
"B!B" -> "!BB"
"C!B" -> "!BC"
"A!C" -> "!CA"
"B!C" -> "!CB"
"C!C" -> "!CC"

k-payl

data TCard = Card Mast CardRang deriving (Eq, Ord, Show)
data Mast = Piki | Bubi | Kresti | Chervi deriving(Eq, Ord, Show)
data CardRang = C2 | C3 | C4 | C5 | C6 | C7 | C8 | C9 | C10 | Valet | Dama | Korol | Tyz deriving(Eq, Ord, Show)
{-
--prepared
isMinor :: TCard -> Bool
isMinor (Card _ b) = b <= C10

sameSuit :: TCard -> TCard -> Bool
sameSuit (Card m1 _) (Card m2 _) = m1 == m2