Напишите программу языком Бэйсик "Напечатать таблицу соответствия между квадратными...

' Цикл While
Dim GA as Double
GA = 0.5
Do While GA <= 6.5<br>print GA, " га = "; GA * 10000, " квадратных метров"
GA = GA + 0.5
Loop

' Цикл For
Dim X as Double
PRINT "X" , "Y"
FOR X=0.5 TO 6.5 STEP 0.5
PRINT X , X*10000
NEXT

' For с двумя переменными
Dim X as Double
Dim Y as Double
PRINT "X" , "Y"
FOR X=0.5 TO 6.5 STEP 0.5
Y = X * 10000
PRINT X , Y
NEXT