{* Задача323 *}

REM basic

' Описать подпрограмму PowerA234(A), вычисляющую корень второй, третьей и четвертой степени из числа A.С помощью этой подпрограммы вычислить корни для трех данных чисел.


Declare Sub POWERA234 (A!)
CLS
Dim Shared KA2
Dim Shared KA3
Dim Shared KA4
 
For I = 1 To 3
INPUT A
Call POWERA234(A)
PRINT "KOREN VTOROI STEPENI CHISLA"; A; ": "; KA2
PRINT "KOREN TRETEI STEPENI CHISLA"; A; ": "; KA3
PRINT "KOREN CHETVERTOI STEPENI CHISLA"; A; ": "; KA4
Next I
 
 
Sub POWERA234 (A)
KA2 = SQR(A)
KA3 = A ^ (1 / 3)
KA4 = A ^ (1 / 4)
End Sub