1) Найти сумму нечетных чисел на интервале [-30; 40].

2) Найти кол-во чисел на интервале [-50; 120], которые кратны 9.

3) Найти произведение чисел кратных 11 на интервале [-10; 20].

4) Последовательно вводятся N чисел. Найти их произведение.

1.)

var s, i: integer;

begin

for i:=-30 to 40 do

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

writeln (s) ;

end.

2.)

var s, i: integer;

begin

for i:=-50 to 120 do

if i mod 9 = 0 then s:=s+1;

writeln (s) ;

end.

3.)

var p, i: integer;

begin

for i:=-10 to 20 do

begin

if i=1 then p:=1;

if i mod 11 = 0 then p:=p*i;

end;

writeln (p) ;

end.

4.)

var n, d, i, p: integer;

begin

p:=1;

write ('Введите n>> ') ;

readln (n) ;

for i:=1 to n do

begin

write ('Введите ', i, '-ое число>> ') ;

readln (d) ;

p:=p*d;

end;

writeln (p) ;

end.