1)Отыскать сумму нечетных чисел на промежутке [-30;40]. 2) Отыскать кол-во чисел

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 (ilt;gt;0)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.