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

1. первая правая цифра числа показывает число единиц, вторая - число двоек (1·2) , третья - число четверок (2·2), четвертая - число восьмерок (4·2) и т.д. имеем:

111101₂ = 1·1 + 2·0 + 4·1 + 8·1 + 16·1 + 32·1 = 1+4+8+16+32 = 61₁₀

2. число нужно поделить на два, найти остаток. полученный результат снова поделить на два и найти остаток и т.д. остатки, записанные в обратном порядке и есть запись в двоичном исчислении.

65÷2 = 32 (ост.1)

32÷2 = 16 (ост.0) 

16÷2 = 8   (ост.0) 

8÷2 = 4     (ост.0) 

4÷2 = 2     (ост.0) 

2÷2 = 1     (ост.0)

1÷2 = 0     (ост.1)

65₁₀ = 1000001₂     

массив данных о стоимости товаров зададим в виде целочисленных констант

program primer_1; const a: array[1..12] of integer = (170, 180, 25, 36, 750, 1, 45, 28, 39, 10, 11, 58);   i,min,k: integer;   begin

min: =a[1];  

for i: =2 to 12 do     if a[i]< min then

                                              begin 

                                              min: =a[i];                                               k: =i; write('минимальная стоимость ', min, '   индекс' ,k) end.

или скорее всего этот вариант

program primer_1; var a: array[1..12] of integer; i, min, k: integer; beginfor i: =1 to 12 do read(a[i]); {ввод стоимостей товаров}min: =a[1]; k: =0; for i: =2 to 12 do if a[i]< min then begin min: =a[i]; k: =i; end; write('мин. сто-мость ', min, ' индекс ' ,k)end.