Pascal ABCНайти сумму квадратов нечётных чисел: 11²+13²+15²+17²+19²

Question

Pascal ABCНайти сумму квадратов нечётных чисел: 11²+13²+15²+17²+19²

Comments

Пропишите саму программу

---

Просто ответ и я легко посчитаю, мне программу надо.

---

Я просто пошел в уме

---

program sqrsum;var sum,a,b,i:integer;begin cls;sum:=0;write('Введите начальное нечетное число ');readln(a);write('Введите конечное нечетное число ');readln(b);write('Сумма квадратов нечетных чисел от ',a,' до ',b,' равна ');repeatsum:=sum+sqr(a);a:=a+2until a>b;writeln(sum)end.

---

Вот тебе универсальное решение на ABC Pascal, которое поможет посчитать сумму квадратов нечетных чисел в любом диапазоне (можно и четные посчитать)

Answer 1

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, которое поможет посчитать сумму квадратов нечетных чисел в любом диапазоне (можно и четные посчитать)