zadach71.BAS

{* Задача71 *}

REM basic

' Написать программу, которая будет сравнивать значения выражения I^2-1 и J^3-1 для целых значений I и J и будет находить при каких значениях I и J они будут равны.


Dim A(10), B(10)
For I=0 To 10
A(I)=I^2-1
PRINT “A(“I”)=”;A(I)
Next I
For J=0 To 10
B(J)=J^3-1
PRINT “B(“J”)=”;B(J)
Next J
For I=0 To 10
For J=0 To 10
If A(I)=B(J) Then PRINT “A(“I”)=B(“J”)=”;A(I)”=”B(J)
Next J
Next I
End