<span>1</span>⁷<span>1</span>⁶<span>0</span>⁵<span>0</span>⁴<span>1</span>³<span>1</span>²<span>0</span>¹<span>1</span>⁰ = 2⁷ + 2⁶ + 2³+2² +2⁰ = 128 + 64 + 8 + 4 + 1 =205₁₀
program sqrsum;
var sum,a,b,i:integer;
begin cls;
sum:=0;
write('Введите начальное нечетное число ');
readln(a);
write('Введите конечное нечетное число ');
readln(b);
write('Сумма квадратов нечетных чисел от ',a,' до ',b,' равна ');
repeat
sum:=sum+sqr(a);
a:=a+2
until a>b;
writeln(sum)
end.
ussrex
Вот тебе универсальное решение на ABC Pascal, которое поможет посчитать сумму квадратов нечетных чисел в любом диапазоне (можно и четные посчитать)
Var
i, n: integer;
s: longint;
begin
readln(n);
for i := 1 to n do
s := s + (n + i) * (n + i);
writeln(s);
end.
program d1;
var x,v,b,n,d,q:integer
begin
x:=A*A;
v:=x*x*A;
b:=v*v*v*x;
writeln(x);
writeln(v);
writeln(b);
end.