спасибо..но как этот код в код вб перевести?
пробовал копи-паст - не работает
вот что на форуме программистов написали :
DIM a, b, c, d AS SINGLE
INPUT "enter a: "; a
INPUT "enter b: "; b
INPUT "enter c: "; c
INPUT "enter d: "; d
IF a < b THEN
c = 2 * (a - b)
d = 0
END IF

DO WHILE c > a
d = d + 1
c = c - 1
LOOP

PRINT USING "c= ###, d=###"; c; d

END
тоже не пашет ((