Question

Информатика 9 класс. Написать программу на языку Паскаль, используя Цикл. Задача: Дана последовательность натуральных чисел (целые). Определить сумму чисел, кратные 6 (делятся на 6 без остатка).

Answer 1

var a,s,i,n: integer;

begin

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

readln(n);

s:=0;

writeln('введите числа:');

for i:=1 to n do begin

readln(a);

if a mod 6=0 then s:=s+a;

end;

write('сумма: ',s);

end.

Answer 2

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

pascalCopy code
program SumOfMultiples;
var
  number, sum: integer;
begin
  sum := 0;  // Инициализируем сумму нулевым значением

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

  repeat
    readln(number);  // Вводим число

    if (number mod 6 = 0) then  // Проверяем, делится ли число на 6 без остатка
      sum := sum + number;  // Если да, добавляем его к сумме
  until (number = 0);  // Цикл продолжается, пока не будет введен 0

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

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

Обратите внимание, что я предположил, что последовательность заканчивается вводом числа 0. Вы можете изменить это условие, если в вашей задаче требуется другой способ завершения ввода.