написать в Паскале, с клавиатуры набрать 15 чисел, программа считает сумму четных чисел.

Вот пример программы на языке Паскаль, которая позволяет пользователю ввести 15 чисел с клавиатуры, а затем считает сумму четных чисел:

pascal
program SumEvenNumbers;
var
  i, num, sum: integer;
begin
  sum := 0;  { Инициализируем сумму четных чисел }
  
  writeln('Введите 15 чисел:');
  
  for i := 1 to 15 do
  begin
    readln(num);  { Вводим число с клавиатуры }
    
    if num mod 2 = 0 then  { Проверяем, является ли число четным }
      sum := sum + num;   { Если число четное, прибавляем его к сумме }
  end;
  
  writeln('Сумма четных чисел: ', sum);  { Выводим сумму четных чисел }
end.

Объяснение работы программы:

1. Переменные:

   • i: Индекс для цикла, который будет повторяться 15 раз.
   • num: Переменная для хранения текущего введенного числа.
   • sum: Переменная для хранения суммы четных чисел, изначально равна 0.

2. Цикл:

   • Цикл for выполняется 15 раз, каждый раз принимая число с клавиатуры и проверяя, является ли оно четным.

3. Проверка на четность:

   • Внутри цикла выполняется проверка if num mod 2 = 0. Оператор mod вычисляет остаток от деления числа на 2. Если остаток равен 0, значит число четное.

4. Вывод суммы: После завершения цикла программа выводит сумму всех четных чисел.

Пример работы программы:

Введите 15 чисел:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Сумма четных чисел: 56

В данном примере программа подсчитала сумму чисел 2, 4, 6, 8, 10, 12 и 14, которая составила 56.