Question

Найти кол-во чисел, которые делятся на 12, в первой 1000 натуральных чисел. ( ABC Pascal)-Программа через которую делаю задания8 класс

Answer 1

// Деление на 12 нацело

Program na12;

var i,n: integer;  

begin

n:=0;

for i:= 1 to 1000 do

if (i mod 12 = 0) then

begin

n:=n+1;

end;

writeln (n);

end.

Answer 2

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

pascalCopy code
program CountMultiplesOf12;

var
  i, count: integer;

begin
  count := 0;

  for i := 1 to 1000 do
  begin
    if (i mod 12 = 0) then
      count := count + 1;
  end;

  writeln('Количество чисел, делящихся на 12 среди первых 1000 натуральных чисел: ', count);
end.

Эта программа перебирает числа от 1 до 1000 и проверяет, делится ли каждое число на 12 (i mod 12 = 0). Если это условие выполняется, программа увеличивает счетчик. В конце выполнения программы будет выведено количество чисел, которые делятся на 12 среди первых 1000 натуральных чисел.