ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!! Используя цикл while, напишите программу, вычисляющую сумму...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!! Используя цикл while, напишите программу, вычисляющую сумму всех чётных чисел от 1 до введённого целого числа m.

Comments

можно кроме while использовать цикл for?

---

нет, нужно только while(((

---

так стоп какой язык

---

питон или другой?

Answer 1

Ответ:

• var i,m,sum: integer;
• begin
• read(m);
• while i
• begin
• i:=i+1;
• if i mod 2 = 0 then sum:=sum+i;
• end;
• write(sum);
• end.

Пример работы:

2+4+6 = 12

---