Найти сумму квадратов нечетных чисел в диапазоне от А и В ...
Найти сумму квадратов нечетных чисел в диапазоне от А и В
cделать в delphi
Есть ответ
17.12.2022
164
Ответ
Дельфи - тот же паскаль в принципе вот тебе кусок кода вычисляющего исходное
Его запихнешь в какой-нибудь 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));
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022