Как в паскале abc сделать таблицу умножения четных чисел

Const n = 5; var x, y: integer; begin   for y : = 1 to n do begin     for x : = 1 to n do        write(string.format('{0,2}*{1,2}={2,3} ', 2*x, 2*y, 4*x*y));     writeln;   end; end.

Функционал

ввести с клавиатуры координаты x, y точек a, b, c. вывести две точки, расстояние между которыми минимально, а также само расстояние между ними.

алгоритм решения формула расстояния между двумя точками на плоскости:

воспользуемся этой формулой. предположим, что между точками a и b наименьшее расстояние. проверим - если между точками b и c расстояние меньше, то обновим ответ. то же самое сделаем с точками a и c.

код

в ansdst храним минимальное расстояние, в ans - названия двух ближайших друг к другу точек

var x1, y1, x2, y2, x3, y3, ansdst: real;

  ans: string;

begin

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

  ans: ='a b';

  ansdst: =sqr(x2-x1)+sqr(y2-y1);

  if sqr(x2-x3)+sqr(y2-y3)> ansdst then

  begin

    ans: ='b c';

    ansdst: =sqr(x2-x3)+sqr(y2-y3);

  end;

  if sqr(x1-x3)+sqr(y1-y3)> ansdst then

  begin

    ans: ='a c';

    ansdst: =sqr(x1-x3)+sqr(y1-y3);

  end;

  writeln(ans);

  writeln(sqrt(ansdst));

end.

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

в прикладных областях различают следующие виды абстрактных моделей:   1) традиционное моделирование без какой-либо привязки к техническим средствам информатики.   2) информационные модели и моделирование, имеющие приложения в информационных системах.