Можно блок схему к данной задаче. var N, i, sum: integer;
begin
writeln('Введите N:');
readln(N);
sum := 0;
for i := 1 to N do
if (i mod 2) = 0 then
sum += i;
write('Сумма четных чисел =',sum);
end.

Популярно: Информатика

• 

  zuzu100

  28.08.2022 22:28
  Как преобразовать информацию, представленную в табличной форме в граф...
• 

  ayla678

  06.08.2022 21:02
  Задан массив A[9]. Заполните массив случайными числами в диапазоне от...
• 

  fairytale8

  17.06.2022 17:07
  Язык программирования си. С частью задания мне здесь же, но так получилось,...
• 

  Vitaminka123456789

  11.07.2022 17:03
  Є шість ком ютерів об єднаних в локальну мережу.Один із комп ютерів –...
• 

  лунтик72

  14.09.2022 10:33
  Сколько бит занимает сообщение «КАЛЬКУЛЯТОР» Если в нем использованы...
• 

  vovadavydov56

  22.07.2022 23:12
  Выбери правильную запись оператора для разветвляющегося алгоритма If...
• 

  RumikoZun

  03.06.2021 05:43
  Выбери операторы для записи циклического алгоритма (2 вида) Верных ответов:...
• 

  ДианаBerts

  23.04.2021 20:49
  Выберите правильно записанное (без ошибок) условие в программе Python...
• 

  Лідія200445

  25.01.2023 12:46
  Это язык программирования Python. Составьте блок-схему алгоритма и напишите...
• 

  lizabezludnaya

  10.04.2021 06:26
  Решается оценка запишите числа в развёрнутом виде: 261,1011101(2),254(8)...