Составьте программу подсчета суммы четных и количества нечетных чисел от 1 до 200

Question

Составьте программу подсчета суммы четных и количества нечетных чисел от 1 до 200

Answer 1

Var sum, num, i: integer;
Begin
Sum:=0; num:=0;
i:= 1 to 200 do
If (i mod 2)=0 then sum :=sum+i
Else inc(num);
Write(sum,' ',num);
End.

Comments

Спасибо:)

---

В таких случаях лучше просто начинать с четного и идти с шагом в 2 без проверки каких-либо условий.

---

А количество нечетных можно подсчитать и так, без цикла - их будет ровно половина из 200, т.е. 100.

---

спасибо, буду знать)

---

Пожалуйста)

---

Просто не все помнят про циклы while, а с шагом 2 цикл со счетчиком в Паскале не работает.