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

Question

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

cделать в delphi

Answer 1

Дельфи - тот же паскаль в принципе вот тебе кусок кода вычисляющего исходное

Его запихнешь в какой-нибудь 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));