{--------------------------------------------------------------------- - Subiect: Se considera coordonatele a doua patratele ale tablei de sah (coordonatele patratelului se reprezinta prin 2 numere de la 1 la 8: numarul liniei si numarul coloanei). - Cerinta: Sa se scrie un program care va raspunde la intrebarea: "Sunt oare de aceeasi culoare (alba sau neagra) cele doua patratele considerate ale tablei de sah?" - Intrare: De la tastatura se introduc patru numere naturale din intervalul [1..8], care reprezinta in ordine coordonatele a doua patrateke de pe tabla de sah. - Indicatie: Patratelul din coltul stanga-sus are coordonatele (1,1) si culoarea alba. - Iesire: La ecran se afiseaza mesajul 'YES', daca patratelele sunt de aceeasi culoare si 'NO' in caz contrar, precum si denumirile culorilor respective. - Exemplu: Intrare: (1,1), (2,2) | Intrare: (1,1), (1,4) Iesire: YES Alba Alba | Iesire: NO Alba Neagra ---------------------------------------------------------------------} Program Alb_Negru; uses crt; const cl: array[0..1] of string = ('Neagra', 'Alba'); var x1,y1,x2,y2, c1, c2: integer; begin clrscr; write('F1: x y = '); readln(x1,y1); write('F2: x y = '); readln(x2,y2); c1 := (x1 + y1) mod 2; c2 := (x2 + y2) mod 2; if c1 = c2 then write('Yes ') else write('No '); writeln(' ', cl[c1], ' ', cl[c2]); readkey; end.