Реферат: Лабораторные работы по информатике

DIM A(N, N)

FOR I = 1 TO N

FOR J = 1 TO N

PRINT "A("; I; ","; J; ")=";

INPUT A(I, J)

NEXT J

NEXT I

P = 1

FOR I = 1 TO N

FOR J = 1 TO N

IF I = J THEN

P = P * A(I, J)

END IF

NEXT J

NEXT I

PRINT "Определитель треугольной матрицы="; P

END

INPUT "Ввести M,N"; M, N

P = 1: S = 0

FOR I = 1 TO N

P = P * (I / (2 + I))

FOR J = 1 TO M

S = S * (I + J)

NEXT j

NEXT I

Y = P + S

PRINT "Y="; Y

ОДЗ №1