zadach8.BAS

{* Задача8 *}

REM basic

'


20 INPUT "Введите параметр а и дельта x ", a, d
30 For x=1 To 5 Step d
40 If xa Then W=x*x*SQR(x-a)
70 PRINT "x="; x, "W="; Using "##.###"; W
80 Next x
90 End