Решение:
решаеться эта задача (и все на неё похожие) через теорему Пифагора
вот исходник:

Quote

CLS PRINT INPUT " A(x1,y1)=", x1, y1 INPUT " B(x2,y2)=", x2, y2 AO = SQR(x1 * x1 + y1 * y1) BO = SQR(x2 * x2 + y2 * y2) IF AO > BO THEN PRINT " tochka A ("; x1; ","; y1; ") dal'we" IF BO > AO THEN PRINT " tochka B dal'we" IF AO = BO THEN PRINT " rasstoqnie ravno" END

(с)[Lio]

Решение:

Quote

CLS s = 8 PRINT INPUT " text=", a$ FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = " " THEN s = s + 5 NEXT i PRINT " S="; s END

©[Lio]
P. S: если Вы сдаете экзамен по информатике в 9 классе, то данные исходники Вам помогут.