Помогите решить с 17 задачи
программа на Паскале:
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
