Question

Напишите программу в ПАСКАЛЕ, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6,нужна правильная программа в ПАСКАЛЕ чтобы работала,если можно прикрепите фото что все работает

Answer 1

Ответ:

Дан во вложении.

Answer 2

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

pascalCopy code
program SumMultiplesOfSix;

const
  MaxNumbers = 100;
  MaxValue = 300;

var
  numbers: array[1..MaxNumbers] of Integer;
  count, i, sum: Integer;

begin
  writeln('Введите количество чисел в последовательности:');
  readln(count);

  writeln('Введите числа:');
  for i := 1 to count do
    readln(numbers[i]);

  sum := 0;
  for i := 1 to count do
  begin
    if (numbers[i] mod 6 = 0) then
      sum := sum + numbers[i];
  end;

  writeln('Сумма чисел, кратных 6: ', sum);
end.

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