Ноутбук больше чем нетбук
Нетбук более удобный всмысле объема
Вавило́нская ба́шня — легендарная башня, которой посвящено библейское предание, изложенное в 11 главе книги Бытие. Согласно этому преданию, после Всемирного потопа человечество было представлено одним народом, говорившим на одном языке. С востока люди пришли на землю Сеннаар (в нижнем течении Тигра и Евфрата), где решили построить город, названный Вавилоном, и башню до небес, чтобы «сделать себе имя». Строительство башни было прервано Богом, который создал новые языки для разных людей, из-за чего они перестали понимать друг друга, не могли продолжать строительство города и башни и рассеялись по всей земле. Таким образом, история о Вавилонской башне объясняет появление различных языков после Всемирного потопа.
Var
A, B, C, D: integer;
f1, f2: Text;
begin
Assign(f1, 'input.txt');
Reset(f1);
Assign(f2, 'output.txt');
Rewrite(f2);
while not Eof(f1) do
begin
Readln(f1, A, B, C, D);
if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
else writeln(f2,'NO')
end;
Close(f1);
Close(f2)
end.
Const n=4;
var
a:array[1..n,1..n] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n div 2 do
for j:=i to n-i do
begin
b:=a[i,j];
a[i,j]:=a[n-j+1,i];
a[n-j+1,i]:=a[n-i+1,n-j+1];
a[n-i+1,n-j+1]:=a[j,n-i+1];
a[j,n-i+1]:=b;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
57 32 69 17
87 33 85 22
89 80 59 13
60 93 96 56
Полученный массив:
60 89 87 57
93 80 33 32
96 59 85 69
56 13 22 17
