с помощью паскаля вычислить сумму всех четных чисел от m до n.
var I,m,n,S :integer;
begin
write (m,n);
read (m,n); S:=0;
for I:=m to n do
if (I mod 2=0) then S:=S+I;
write (S= ,S);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
