С помощью паскаля вычислить сумму всех четных чисел от m до n.
С помощью паскаля вычислить сумму всех четных чисел от 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.
Не нашли ответ?
Похожие вопросы