Знайти суму всіх натуральних парних чисел від 0 до N.

паскаль

2
Это должна быть программа?
var i,n,s:integer;
begin
readln(n);
if n mod 2 > 0 then n:=n-1;
s:=0;
while n>0 do
begin
n:=n-2;
s:=s+n:
end;
writeln(n);
readln;
end.

Ответы и объяснения

2013-11-05T14:28:26+04:00
Program NaturalDigits;
Var a, i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
a := 0;
For i := 0 To N Do
If i Mod 2 = 0 Then
a := a + i;
WriteLn('Сумма всех чётных чисел от 0 до ', N, ' равна ', a);
ReadLn;
End.
2013-11-05T14:48:34+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var i, sum, n: integer;
Begin
  Read(n);
  for i := 0 to n do
   if (i mod 2 =0) then sum := sum +i;

  writeln(sum);
End.
Всё конечно хорошо, только в задании необзодимо найти не количество парных чисел, а их сумму. Следовательно вместо sum + 1 должно быть sum + i.
точно
описка
;)