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

DashaL109 DashaL109    1   19.05.2019 09:40    0

Ответы
Svetik15102011 Svetik15102011  12.06.2020 13:51

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

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

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика