Question

Вычислить сумму натуральных четных чисел, не превышающих N. Программу составьте двумя способами: используя цикл с предусловием и цикл с постусловием. Значение N нужно задать самостоятельно.

Answer 1

Ответ:

var

 i, sum, n: integer;

 

begin

 sum := 0;

 readln(n);

 i := 0;

 while i < n do

 begin

   if not odd(i) then

     sum := sum + i;

   inc(i);

 end;

 writeln('Сумма: ', sum);

 i := 0;

 sum := 0;

 repeat

   if not odd(i) then

     sum := sum + i;

   inc(i);

 until i > n;

 writeln('Сумма: ', sum);  

end.