1) 6,77 мм (для стран Таможенного союза)
2) 6,35 мм (для программ компьютерной вёстки)
Объяснение:
Что такое pt? pt - это типографский пункт, единица измерения кегля шрифта.
Во входящих в Таможенный союз странах СНГ пункт исчисляется по типометрической системе Дидо, в которой 1 пункт равен 0,376 мм.
В программах компьютерной вёрстки широко используется введённый компанией Adobe пункт, приравненный к 1/72 дюйма, то есть 0,3528 мм.
Т.е. из-за нечеткой формулировки вопроса, у вас будет два ответа:
1) 18*0,376 ≈ 6,77 мм (для стран Таможенного союза)
2) 18*0,3528 ≈ 6,35 мм (для программ компьютерной вёстки)
Pascal
const
nmax = 100;
var
A: array[1..nmax, 1..nmax] of real;
i, j, n, count: byte;
begin
Writeln('Введите N');
Readln(n);
Writeln('Исходная матрица');
count:=0;
for i := 1 to N do
for j := 1 to N do
a[i, j] := (Sin(Sqr(i) - Sqr(j)) / N);
write(A[i, j]:10:3);
if a[i,j]> 0 then Inc(count);
end;
writeln;
Writeln('Количество положительных элементов: ', count);
end.
Тестовое решение
Введите N
5
Исходная матрица
0.000 -0.028 -0.198 -0.130 0.181
0.028 0.000 0.192 0.107 -0.167
0.198 -0.192 0.000 -0.131 0.058
0.130 -0.107 0.131 0.000 -0.082
-0.181 0.167 -0.058 0.082 0.000
Количество положительных элементов: 10
1) 6,77 мм (для стран Таможенного союза)
2) 6,35 мм (для программ компьютерной вёстки)
Объяснение:
Что такое pt? pt - это типографский пункт, единица измерения кегля шрифта.
Во входящих в Таможенный союз странах СНГ пункт исчисляется по типометрической системе Дидо, в которой 1 пункт равен 0,376 мм.
В программах компьютерной вёрстки широко используется введённый компанией Adobe пункт, приравненный к 1/72 дюйма, то есть 0,3528 мм.
Т.е. из-за нечеткой формулировки вопроса, у вас будет два ответа:
1) 18*0,376 ≈ 6,77 мм (для стран Таможенного союза)
2) 18*0,3528 ≈ 6,35 мм (для программ компьютерной вёстки)
Pascal
const
nmax = 100;
var
A: array[1..nmax, 1..nmax] of real;
i, j, n, count: byte;
begin
Writeln('Введите N');
Readln(n);
Writeln('Исходная матрица');
count:=0;
for i := 1 to N do
begin
for j := 1 to N do
begin
a[i, j] := (Sin(Sqr(i) - Sqr(j)) / N);
write(A[i, j]:10:3);
if a[i,j]> 0 then Inc(count);
end;
writeln;
end;
Writeln('Количество положительных элементов: ', count);
end.
Тестовое решение
Введите N
5
Исходная матрица
0.000 -0.028 -0.198 -0.130 0.181
0.028 0.000 0.192 0.107 -0.167
0.198 -0.192 0.000 -0.131 0.058
0.130 -0.107 0.131 0.000 -0.082
-0.181 0.167 -0.058 0.082 0.000
Количество положительных элементов: 10