Опубликовано 5 лет назад по предмету Информатика от oksana26011989

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

паскаль

Ответ

Ответ дан preceptor

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.
Ответ

Ответ дан archery

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.
1. Ответ
  
  Ответ дан preceptor
  
  Всё конечно хорошо, только в задании необзодимо найти не количество парных чисел, а их сумму. Следовательно вместо sum + 1 должно быть sum + i.
2. Ответ
  
  Ответ дан archery
  
  точно
3. Ответ
  
  Ответ дан preceptor
  
  ;)

Самые новые вопросы

Другие предметы - 5 лет назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 5 лет назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 5 лет назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 5 лет назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 5 лет назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают