Известно, что шахматная доска имеет размерность 8х8 и состоит из клеток 2х цветов, например, черного и белого (см. рисунок). каждая клетка имеет координату, состоящую из буквы и цифры. горизонтальное расположение клетки определяется буквой от a до h, а вертикальное – цифрой от 1 до 8. заметим, что клетка с координатой а1 имеет черный цвет. требуется по заданной координате определить цвет клетки.

Var s: string; begin   write('введите координаты клетки ');   readln(s);   if (ord(s[1]) mod 2< > 0)and(ord(s[2]) mod 2< > 0)then   writeln('черная') else writeln('белая');   end. тест №1 введите координаты клетки e4 белая тест №2 введите координаты клетки e7 черная

//pascal abc.net 3.1 сборка 1256 var   a,b,c,s,p: real; begin readln(a,b,c); if (a+b> c) and (b+c> a) and (a+c> b) then   begin   p: =(a+b+c)/2;   s: =sqrt(p*(p-a)*(p-b)*(p-c));   writeln('s=',s);   end   else   writeln('такого треугольника не существует.'); end. пример ввода: 3 4 3 пример вывода: s=4.47213595499958

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

 

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

 

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в