Ответ(ы) на вопрос:
Гостьпрограмма на Паскале:
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.
Не нашли ответ?
Похожие вопросы