Question

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

Answer 1

Ответ:

Program p1;

Var a, i, n, k: integer;

Begin

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

readln(n);

k:=0;

For i:=1 to n do begin

readln (a);

if (a mod 6 =0) then k:=k+a;

end;

Writeln('Сумма чисел кратных 6 - ',k);

End.

Answer 2

var

 size, num, sum, i: integer;

 

begin

 sum := 0;

 read(size);

 for i := 1 to size do

 begin

   read(num);

   if num mod 6 = 0 then

     inc(sum, num)

 end;

 

 write(sum)

end.

Answer 3

Для решения данной задачи на языке программирования Pascal можно использовать следующий код:

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

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