Составьте программу нахождения произведения нечётных чисел ** отрезке от 15 до 89. Паскаль

Question

Составьте программу нахождения произведения нечётных чисел на отрезке от 15 до 89. Паскаль

Answer 1

var s,i:integer;

s:=0;

for i:=15 to 89 do

if i mod 2 = 0 then s:=s+i;

writeln('Сумма нечентны чисел = ',s);