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

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

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

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

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

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 agt;b;

writeln(sum)

end.

ussrex

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