Question

ПОМОГИТЕ с написанием программы в Pascal. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 5.

Answer 1

Var
  n, sum, i, a: integer;
begin
  read(n);
  sum = 0;
  for i := 1 to n do
  begin
    read(a);
    if (a mod 5 = 0) then
      sum := sum + a;
  end;
  write(sum);
end.

Answer 2

Вот пример программы на Pascal, которая выполняет указанные вами задачи:

pascalCopy code
program SumOfMultiplesOfFive;
var
  n, i, number, sum: integer;
begin
  sum := 0;
  writeln('Введите количество чисел в последовательности: ');
  readln(n);
  writeln('Введите числа: ');
  for i := 1 to n do
  begin
    readln(number);
    if (number mod 5 = 0) then
      sum := sum + number;
  end;
  writeln('Сумма чисел, кратных 5, равна: ', sum);
end.

Программа запрашивает у пользователя количество чисел в последовательности, а затем просит ввести сами числа. Она затем проверяет каждое число на кратность 5 и добавляет его к общей сумме. Наконец, программа выводит сумму чисел, кратных 5.