1) Найти сумму нечетных чисел на интервале [-30; 40]. 2) Найти кол-во чисел на интервале [-50; 120], которые кратны 9. 3) Найти произведение чисел кратных 11 на интервале [-10; 20]. 4) Последовательно вводятся N чисел. Найти их произведение.

1) program zz1;

var i, s:integer; / / задаем переменные целого типа

begin

for i:=-30 to 40 do / / организуем цикл, в котором переберем все числа

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

writeln (' сумма нечетных чисел от - 30 до 40 = ', s); / / выводим ответ

end.

2) program zz1;

var i, s:integer; / / задаем переменные целого типа

begin

for i:=-50 to 120 do / / организуем цикл, в котором переберем все числа

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

writeln (' количество чисел кратных 9 = ', s); / / выводим ответ

end.

3) program zz1;

var i, s:integer; / / задаем переменные целого типа

begin

s:=1;

for i:=-10 to 20 do / / организуем цикл, в котором переберем все числа

if (i0) and (i mod 11 = 0) then s:=s * i;

writeln (' произведение чисел кратных 11 = ', s); / / выводим ответ

end.

4. program zz1;

var n, i, p, a:integer; / / вводим переменную целого типа

begin

write (' введите число n'); / / вводим с клавиатуры число

read (n);

p:=1;

for i:=1 to n do / / организуем цикл

begin

read (a);

p:=p * a;

end;

writeln (' произведение чисел = ', p); / / выводим ответ

end.