Используя цикл while, напишите программу определения суммы всех чётных чисел от 5 до 200...

Question

Используя цикл while, напишите программу определения суммы всех чётных чисел от 5 до 200 включительно.

Comments

Язык?

---

Паскаль

Answer 1

var

 i,sum:integer;

begin

 sum:=0;

 i:=5;

 while i<=200 do  </strong>

  begin

   sum:=sum+i;

   i:=i+2;

  end;

 writeln ('Summa: ',sum);

end.

Comments

спасибо