Question

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

Answer 1

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.

Answer 2

а остальные? с: