Напишите программу на Pascalabc.net, используя массивы, которая определяет сумму всех чисел, находящихся

Романовна

62

на 6).

Чтобы решить данную задачу, создадим программу на Pascalabc.net, используя массивы. Программа будет считывать входные данные - последовательность натуральных чисел, и находить сумму чисел, которые кратны 6 и оканчиваются на 6.

Вот полный код программы:

program SumOfMultiplesOf6;

var

  sequence: array [1..100] of Integer;

  num, sum: Integer;

  i: Integer;

begin

  // Ввод последовательности чисел



  i := 1;

  repeat

    write("Введите число (0 для завершения): ");

    readln(num);

    if num <> 0 then

    begin

      sequence[i] := num;

      i := i + 1;

    end;

  until (num = 0) or (i > 100);

  

  // Вычисление суммы чисел, которые кратны 6 и оканчиваются на 6



  sum := 0;

  for i := 1 to i - 1 do

  begin

    if (sequence[i] mod 6 = 0) and (sequence[i] mod 10 = 6) then

      sum := sum + sequence[i];

  end;

  

  // Вывод результата

  

  writeln("Сумма чисел, удовлетворяющих условию: ", sum);

end.

Теперь давайте поэтапно разберем этот код для лучшего понимания.

1. Создание переменных:

- `sequence`: массив, в котором мы будем хранить введенную последовательность чисел.
- `num`: переменная, в которую мы будем считывать числа из входной последовательности.
- `sum`: переменная, в которой мы будем хранить сумму чисел, удовлетворяющих условию.
- `i`: переменная-счетчик, которая будет использоваться для обхода массива и подсчета количества введенных чисел.

2. Ввод последовательности чисел:

Мы используем цикл `repeat..until`, чтобы считывать числа из входной последовательности, пока не будет введено число 0 или пока количество введенных чисел не достигнет 100. Каждое введенное число сохраняется в массиве `sequence`, и индекс массива `i` увеличивается.

3. Вычисление суммы чисел, которые кратны 6 и оканчиваются на 6:

Мы используем цикл `for` для обхода всех введенных чисел в массиве `sequence`. Мы проверяем, кратно ли текущее число 6 и оканчивается ли оно на 6, и если да, то добавляем его к общей сумме `sum`.

4. Вывод результата:

Мы выводим значение переменной `sum`, которая содержит сумму чисел, удовлетворяющих условию, на экран.

Таким образом, данная программа на Pascalabc.net решает задачу на определение суммы чисел, находящихся в последовательности натуральных чисел, кратных 6 и оканчивающихся на 6.