Известно, что шахматная доска имеет размерность 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 черная

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.

ошибка в том что натуральный логарифм (-1) не существует

 

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.