Помогите решить с 17 задачи

Question

Помогите решить с 17 задачи

---

Скачать вложение Word (DOC)

Answer 1

программа на Паскале:
var a,b,i,sum,proiz: integer;
begin
writeln("vvedite a,b");
read(a,b);
proiz:=a*b;
sum:=0;
for i:=1 to proiz do
begin
if (i mod 2=0) then sum:=sum+i;
end;
writeln("summa= ",sum);
end.