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

    cделать в delphi

Ответы 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));

     

     

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years