1. var a:array [1..4, 1..4] of integer; i, j, max: integer; Begin for i := 1 to 4 do begin for j := 1 to 4 do read(a[i][j]); readln; end; max := a[1][1]; for i := 2 to 4 do if max < a[i][i] then max := a[i][i]; writeln(max); End.
2. var a:array [1..5, 1..5] of integer; i, j, m, sum: integer; Begin for i := 1 to 5 do begin for j := 1 to 5 do read(a[i][j]); readln; end; readln(m); sum := 0; for i := 1 to 5 do if (m - i > 0) and (m - i < 6) then sum := sum + a[i][m - i]; writeln(sum); End.
3. Const N = 5; var a:array [1..N, 1..N] of integer; i, j, max: integer; Begin for i := 1 to N do begin for j := 1 to N do read(a[i][j]); readln; end; max := a[1][N]; for i := 2 to N do if (max < a[i][N + 1 - i]) then max := a[i][N + 1 - i]; writeln(max); End.
4. Const N = 5; var a:array [1..N, 1..N] of integer; i, j, count: integer; sum: real; Begin for i := 1 to N do begin for j := 1 to N do read(a[i][j]); readln; end; sum := 0; count := 0; for i := 1 to N do if (a[5][i] mod 2 = 1) then begin sum := sum + a[5][i]; inc(count); end; sum := sum / count; writeln(sum); End.
5. var a:array [1..4, 1..4] of integer; i, j, upper_sum, lower_sum: integer; Begin for i := 1 to 4 do begin for j := 1 to 4 do read(a[i][j]); readln; end; upper_sum := 0; lower_sum := 0; for i := 1 to 4 do begin for j := i + 1 to 4 do upper_sum := upper_sum + a[i][j]; for j := 1 to i - 1 do lower_sum := lower_sum + a[i][j]; end; writeln(upper_sum); writeln(lower_sum); End.
Круг – это геометрическая фигура, где точки плоскости имеют расстояние до определенной точки не более, чем заданное. Его окружность представляет собой замкнутую плоскую кривую, в которой все точки удалены на одинаковое расстояние от центра.
Зачастую круг называют частью плоскости, которая ограничивается окружностью. Для абсолютно любой окружности ее длина и диаметр одинаковы. Такое соотношение обозначают трансцендентным числом π = 3.1415
Периметр, как и длина круга имеет одинаковую величину в круге. Наш калькулятор вам вычислить периметр этой фигуры при значения радиуса. Все что от вас требуется для этого просто ввести радиус заданного вами круга. Длина окружности круга равна двум пи умноженным на радиус.
 - это формула, которая высчитывать точный периметр круга.
var a:array [1..4, 1..4] of integer; i, j, max: integer;
Begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
read(a[i][j]);
readln;
end;
max := a[1][1];
for i := 2 to 4 do
if max < a[i][i] then max := a[i][i];
writeln(max);
End.
2.
var a:array [1..5, 1..5] of integer; i, j, m, sum: integer;
Begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
read(a[i][j]);
readln;
end;
readln(m);
sum := 0;
for i := 1 to 5 do
if (m - i > 0) and (m - i < 6) then
sum := sum + a[i][m - i];
writeln(sum);
End.
3.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, max: integer;
Begin
for i := 1 to N do
begin
for j := 1 to N do
read(a[i][j]);
readln;
end;
max := a[1][N];
for i := 2 to N do
if (max < a[i][N + 1 - i]) then
max := a[i][N + 1 - i];
writeln(max);
End.
4.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, count: integer; sum: real;
Begin
for i := 1 to N do
begin
for j := 1 to N do
read(a[i][j]);
readln;
end;
sum := 0;
count := 0;
for i := 1 to N do
if (a[5][i] mod 2 = 1) then
begin
sum := sum + a[5][i];
inc(count);
end;
sum := sum / count;
writeln(sum);
End.
5.
var a:array [1..4, 1..4] of integer; i, j, upper_sum, lower_sum: integer;
Begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
read(a[i][j]);
readln;
end;
upper_sum := 0;
lower_sum := 0;
for i := 1 to 4 do
begin
for j := i + 1 to 4 do
upper_sum := upper_sum + a[i][j];
for j := 1 to i - 1 do
lower_sum := lower_sum + a[i][j];
end;
writeln(upper_sum);
writeln(lower_sum);
End.
Круг – это геометрическая фигура, где точки плоскости имеют расстояние до определенной точки не более, чем заданное. Его окружность представляет собой замкнутую плоскую кривую, в которой все точки удалены на одинаковое расстояние от центра.
Зачастую круг называют частью плоскости, которая ограничивается окружностью. Для абсолютно любой окружности ее длина и диаметр одинаковы. Такое соотношение обозначают трансцендентным числом π = 3.1415
Периметр, как и длина круга имеет одинаковую величину в круге. Наш калькулятор вам вычислить периметр этой фигуры при значения радиуса. Все что от вас требуется для этого просто ввести радиус заданного вами круга. Длина окружности круга равна двум пи умноженным на радиус.
 - это формула, которая высчитывать точный периметр круга.