Question

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

Answer 1

Ответ:

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

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

2+4+6 = 12