Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
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.
Begin
Read(n);
for i := 0 to n do
if (i mod 2 =0) then sum := sum +i;
writeln(sum);
End.
Ответ дал:
0
Всё конечно хорошо, только в задании необзодимо найти не количество парных чисел, а их сумму. Следовательно вместо sum + 1 должно быть sum + i.
Ответ дал:
0
точно
Ответ дал:
0
;)
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад