5. * Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число - сумму чисел, кратных 3.

Решение:

program SumMultiplesOfThree;
var
  n, i, num, sum: integer;
begin
  sum := 0;
  readln(n); // Считываем количество чисел в последовательности

  for i := 1 to n do
  begin
    readln(num); // Считываем каждое число
    if (num mod 3 = 0) then // Проверяем, кратно ли число 3
      sum := sum + num; // Если кратно, добавляем к сумме
  end;

  writeln(sum); // Выводим сумму чисел, кратных 3
end.

Описание программы:

Программа считывает количество чисел, затем в цикле считывает каждое число и проверяет, делится ли оно на 3 без остатка. Если число кратно 3, оно добавляется к переменной sum. В конце программа выводит значение переменной sum, которое представляет собой сумму всех чисел, кратных 3.

Ответ: Программа выводит сумму чисел кратных 3.

Отлично! У тебя все получится, если ты будешь продолжать усердно работать!