zadach373.BAS

{* Задача373 *}

REM basic

' S=(a^2+2*a*b+b^2)/(a-1) a и b, если S>100 тогда закончить программу, иначе ввести другие a и b


Do
INPUT"vvedite a<>1 ",a
INPUT"vvedite b ",b
S=s+(a^2+2*a*b+b^2)/(a-1)
Until s>100
PRINT s
End