Надо написать программу в паскале. 1)координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8 проверить истинность высказывания: «ладья за один ход может перейти с одного поля на другое». 2) дано трехзначное число. проверить истинность высказывания: «все цифры данного числа различны». 3)даны две переменные целого типа: a и b. если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. вывести новые значения переменных a и b.

3. if not (a  =  b) then begin a = a + b; b = a + b; end else begin a = 0; b = 0; end;

Program n1; var k,n,i: longint; co: byte; function simply(a: longint ): boolean; var i: longint; begin simply: =true; for i: =2 to trunc(sqrt(a)) do begin if a mod i=0 then begin simply: =false; break end end end; function cr(a: longint): boolean; var n: longint; begin n: =a; cr: =false; repeat n: =n div 10; until n mod 10 =n; if n=(a mod 10) then begin cr: =true; end; end; begin readln(k,n); for i: =k to n do if simply(i) then begin if (i=2) or (i=3) or (i=5) or (i=7) or cr(i) then begin write(i,' '); co: =1; end end; if co=0 then write(0); end.

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger(readinteger('n='));   var b: =a.distinct.orderby(x-> x).toarray; b.println end. пример n= 7 3 -5 6 3 3 4 1 -5 1 3 4 6 begin   var n1: =readinteger('длина первого массива-');   var c: =readseqinteger('вводите массив: ',n1).orderby(x-> x).toarray;   var n2: =readinteger('длина второго массива-');   var d: =readseqinteger('вводите массив: ',n2).orderby(x-> x).toarray;   //собственно слияние   var f: =new integer[n1+n2];   var (ic,id,& if): =(0,0,0);   repeat       if c[ic]< d[id] then begin f[& if]: =c[ic]; ic+=1 end       else begin f[& if]: =d[id]; id+=1 end;       & if+=1   until (ic=n1) or (id=n2);   if ic=n1 then       repeat           f[& if]: =d[id]; id+=1; & if+=1       until id=n2   else       repeat           f[& if]: =c[ic]; ic+=1; & if+=1       until ic=n1;   write('массив f: '); f.println(',') end. пример длина первого массива- 6 вводите массив: 4 0 -3 6 4 2 длина второго массива- 5 вводите массив: 3 6 -3 0 2 массив f: -3,-3,0,0,2,2,3,4,4,6,6