99 (писать на питоне или с ++) петя и вася недавно нашли интересную игру. у них есть большой квадрат с ребром n. вася и петя по очереди загадывают другие квадраты, лежащие внутри большого, после чего вырезают их (при этом часть загаданного квадрата уже может быть вырезана ранее либо выходить за пределы большого квадрата после некоторого количества ходов они должны безошибочно назвать площадь оставшейся фигуры. зная размер большого квадрата и размеры малых, вырезаемых квадратов, вычислите площадь фигуры, полученной после того, как все малые квадраты будут вырезаны из большого. входные данные в первой строке целое число n — размер ребра квадрата (1< =n< =100). во второй строке целое число m — количество вырезаемых квадратов. в следующих m строках (1< =m< =13) содержатся тройки целых чисел x, y, a (разделённые пробелом), которые квадрат с углами в точках с координатами (x+1, y+1) и (x+a, y+a) . считайте, что большой квадрат имеет координаты углов (1, 1) и (n, n) . рёбра всех квадратов параллельны осям координат. (0< =x, y< =n , 1< =a< =n). выходные данные целое число s — площадь фигуры, получившейся после вырезания из большого квадрата всех малых квадратов. примеры входные данные 6 3 3 3 3 4 4 2 5 5 1 выходные данные 27

{#1 Деление на числа меньше 7}

begin

var F: boolean;

var a: integer; read(a);

 for var x := 7 downto 1 do

 begin

   F := (a mod x = 0) ? true : false;

   if F <> true then break;

 end;

end.

{#2 Находится ли точка внутри окружности}

begin

 var F: boolean;

 var z: cardinal;

 var x,y: double; read(x,y,z);

  x := (x<1)? x*-1:x;

  y := (y<1)? y*-1:y;

  if (x<z) and (y<z) then  

 F := true;

end.

{#3 В трехзначном числе есть три одинаковые цифры}

begin

 var F: boolean;

 var n: integer; read(n);

 var s := n.ToString;

 if (s[1] = s[2])  

    or (s[2] = s[3])  

     or (s[1] = s[3]) then

 F := true;

end.

{#4 Точки лежат на одной прямой}

begin

 var F: boolean;

 var x1,y1,x2,y2,x3,y3: integer;

 read (x1,y1,x2,y2,x3,y3);

 if (x2 - x1)*(y3 - y1) - (x3 - x1)*(y2 - y1) = 0 then

 F := true;

end.

{#5 Х или трёхзначное чётное число или четырёхзначное нечётное}

begin

var F: boolean;

var x:integer; read(x);

var s:=x.ToString;

if ((length(s) = 3) and (x mod 2 = 0)) or ((length(s) = 4) and (x mod 2 <> 0)) then

F := true;

end.

Если не так то извини...

1. Любая база данных состоит из простейших объектов, называемых полем и записью. Совокупность полей и записей составляет более крупный объект – таблицу.

2. Не знаю, но думаю так.

Поле – простейший объект базы данных предназначенный для хранения параметра реального объекта или процесса.

На практике для каждого из параметров описываемого объекта отводят отдельное поле.

Запись – совокупность логически связанных полей, характеризующих свойства реального объекта. Для однозначного определения каждой записи таблица должна иметь уникальный ключ. По значению ключа отыскивается единственная запись. Ключ – поле, которое однозначно определяет соответствующую запись.

Таблица - это основные объекты любой базы данных. Во-первых, в таблицах хранятся все данные, имеющиеся в базе, а во-вторых, таблицы хранят структуру базы данных (поля, их тип и свойства).

Запросы. Эти объекты служат для извлечения данных из таблиц и предоставления их пользователю в удобном виде. С запросов выполняют такие операции, как отбор данных, их сортировку и фильтрацию. С запросов можно выполнять преобразование данных по заданному алгоритму, создавать новые таблицы, выполнять автоматическое наполнение таблиц данными, импортированными из других источников, выполнять простейшие вычисления в таблицах и многое другое.