DB
Dima Bakashov

Программа по Паскалю. Составить программу вычисления суммы квадратов нечётных чисел от a до b.

Денис Мурзов
Денис Мурзов

var a,b,i,s:integer;
begin
write('a b ? '); readln(a,b); s:=0; for i:=a to b do inc(s,ord(odd(i))*i*i); writeln(s); readln
end.

СД
Светлана Дзуцева

readln(a,b);
sum:=0;
if not odd(a) then inc(a);
while (a<=b) do
begin
sum:=sum+a*a;
a:=a+2;
end;
writeln(sum);

Похожие вопросы
Помогите составить программу в паскале. Даны три числа a,b,c. Найти произведение (a*b*c) и max из трех.
4. Составить программу для вычисления в паскале
на языке паскаль. Составьте программу вычисления в массиве b(8) суммы нечетных элементов. Напишите целиком всю программу.
СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ. Составить программу вычисления суммы конечного ряда.
СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ. Составить программу вычисления суммы бесконечного ряда с точность EPS
Докажите, что если ac+bc+ac=0, (a-b)*(a-c)+(b-c)*(b-a)+(c-a)*(c-b)=a(квадрате) +b(квадрате) +c(квадрате).
Составить программу вычисления n^3 как суммы нечетных чисел (паскаль)
в паскале программа. программа вычисления суммы первых 10 натуральных целых чисел в паскале
Составить программу для вычисления сумм элементов
Вычисление суммы и произведения в паскале