Const n=10;
var
a:array[1..n,1..n] of integer;
i,j:integer; p1,p2:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
p1:=1; p2:=1;
for i:=1 to n do
begin
p1:=p1*a[i,i];
p2:=p2*a[i,n-i+1]
end;
writeln('p1 = ',p1,' p2 = ',p2);
end.
Пример (для n=5):
Исходный массив:
1 10 14 0 5
12 13 13 5 0
7 7 8 7 14
5 11 3 17 14
12 1 19 17 10
p1 = 17680 p2 = 26400
<span>Как работает струйный принтер Постараемся осветить принцип печати струйного принтера кратко. Качество печати у него немного хуже, чем у лазерного. Однако их стоимость значительно ниже, чем у лазерных. Струйный принтер идеально подходит для эксплуатации в домашних условиях. Он прост в эксплуатации и легко обслуживается. Принцип печати струйного и лазерного принтера заметно отличаются. Это проявляется и в технологии подачи чернил, и в устройстве оборудования. Поэтому поговорим сначала о том, как печатает струйный принтер. Его принцип работы заключается в следующем: в специальной матрице формируется изображение, а затем эта матрица отпечатывает изображение на полотне с использованием жидких красителей. Другой тип струйных принтеров оснащен картриджами, которые устанавливают в специальный блок. В этом случае с помощью печатающей головки чернила подаются в печатающую матрицу, а уж она переносит изображение на бумагу. Способы хранения чернил и их нанесение на бумагу Существует три способа нанести чернила на полотно: • пьезоэлектрический метод; • метод газовых пузырей; • метод drop-on-demand. Первый метод при печати оставляет на полотне чернильную точку, за счет пьезоэлемента. С его помощью трубка сжимается и разжимается, не позволяя лишним чернилам попасть на бумагу. Газовые пузыри, еще известные как инжектируемые пузыри, оставляют отпечаток на полотне за счет высоких температур. Каждое сопло печатающей матрицы оснащено нагревательным элементом, который нагревается за долю секунды. Образовавшиеся газовые пузыри проталкиваются через сопло и переносятся на расходный материал. - Читайте подробнее на FB.ru: </span><span>http://fb.ru/article/174499/kakoy-printsip-pechati-struynogo-i-lazernogo-printera-kak-pechataet-stru...</span>
QBasic:
DIM a AS INTEGER
INPUT "Введите длину стороны квадрата",a
PRINT "Площадь квадрата со стороной";a;":";a*a
PRINT <span>"Периметр квадрата со стороной";a;":";4*a
END
C#:
int a = int.Parse(Console.ReadLine());
Console.WriteLine("Площадь </span><span>квадрата со стороной " + a + ": " + a*a);
</span>Console.WriteLine("<span>Периметр квадрата со стороной " + a + ": " + 4*a);</span>
