[PhoeniX]

Внесу свои 5 рублей:

Сообщение от Trosh

3.14. Шахматная доска содержит 8x8 клеток. Горизонтали вертикали обозначаются цифрами 1-8. Написать программу, проверяющую, что заданные две клетки имеют одинаковый цвет.

Код:

var
  x1, y1, x2, y2: byte;
  cl1, cl2: boolean; // false - белая, true - чёрная.
begin
  cl1 := (x1 mod 2 = 0) xor (y1 mod 2 = 0);
  cl2 := (x2 mod 2 = 0) xor (y2 mod 2 = 0);
  if cl1 = cl2 then
    ShowMessage('Одинаковые!')
  else
    ShowMessage('Разные!');
end;

Сообщение от Trosh

5.14. Сколько имеется двузначных чисел, сумма квадратов цифр которых делится на 13?

Код:

var
  i, count: integer;
begin
  count:=0;
  for i:=10 to 99 do
    if (sqr((i-(i mod 10)) div 10)+sqr(i mod 10)) mod 13 = 0 then
      inc(count);
  ShowMessage(IntToStr(count)+' двузначных чисел делятся на 13');
end;