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

Question

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

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

---