Найти сумму квадратов нечетных чисел в диапазоне от А и В cделать…

Дельфи — тот же паскаль в принципе вот тебе кусок кода вычисляющего исходноеЕго запихнешь в какой-нибудь Button1.Click () в Edit1 и Edit2 вводятся а и b var a,b,i: longint; s: =0; a: =StrToInt (Edit1.Text); b: =StrToInt (Edit2.Text); for i: =a to b do if (a mod 2) <> 0 then s: =s+sqr (i); ShowMessage (StrToInt (s);