Question

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

a60df254a652ac25e995617ec7c42a16.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.