//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n=');
var a := MatrixRandom(n, n, -10, 10);
var b := ArrFill(n, 0);
println(a);
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
if a[i, j] = 0 then b[i] += 1;
b.Println;
end.
5 гб = 5242880 бит ;
5242880 / 30 = 174762.66 (раз)
Var a:real;
begin
readln(a);
if a=0 then writeln('Корней нет')
else writeln('x = ',5/a:4:2);
end.
Пример:
4
<span>x = 1.25</span>
1) На естественном языке
2) На алгоритмическом языке
3) Блок-схема
4) язык программирования