Для побудови прямокутника потрібні координати протилежних вершин. Сторони прямокутника паралельні осям координат. Складіть програму, яка знайде координати двох інших протилежних вершин прямокутника. Вхідні дані
Перший рядок містить чотири цілі числа x
1
, y
1
, x
2
, y
2
(-1000≤x
1
,y
1
,x
2
,y
2
≤1000, x
1
=x2, y1
=y2) — координати протилежних вершин.
Вихідні дані
Виведіть чотири цілі числа x
3
, y
3
, x
4
, y
4
— координати інших протилежних вершин, спочатку ліву вершину, потім праву.
timer
Лимит на использование времени: 1000 ms
storage
Лимит на использование памяти: 256 MB
Примеры
Ниже вы найдете примеры входных данных и ответы которые должна вывести ваша программа.
Пример ввода #1
4 1 5 4
Пример ответа #1
4 4 5 1
Пример ввода #2
5 3 3 1
Пример ответа #2
3 3 5 1
2. Подготовка данных с перфокарт, утверждение "А" - справедливо.
3. Утверждение "Г" - спорно, хотя в 2000 году в лондонском Музее науки заработал принтер, придуманный Бэббиджем для своей машины.
Вообще машина проектировалась как механический аппарат предназначенный для автоматизации вычислений путем аппроксимации функций многочленами и вычисления конечных разностей.
Const
n=5;
Var
ma:array[1..n,1..n] of integer;
i,j,max,maxj,a:integer;
begin
max:=-1;
randomize;
writeln('Matrix:');
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ma[i,j]:=random(10);
write(ma[i,j]:4);
end;
writeln;
end;
for j:=1 to n do
begin
for i:=1 to n do
a:=a+ma[i,j];
if a>max then
begin
max:=a;
maxj:=j;
end;
a:=0;
end;
write('Максимальный по сумме столбец:',maxj);
end.
Пример работы кода:
Matrix:
8 6 8 0 2
6 1 2 9 8
8 1 8 0 1
4 5 1 5 2
3 0 9 9 5
Максимальный по сумме столбец:1