Question

Решить в Pascal и Python : 1)Найти сумму всех натуральных чиcел N (N < 1000) кратных 11, но не кратных 3. 2)Найти произведение всех натуральных чисел от 1 до 20.

Answer 1

Ответ:

Объяснение:

1)

var p, i: integer;

begin

p := 0;

for i := 1 to 999 do

   if i mod 11 = 0 and i mod 3 != 0 then p := p + i;

write(p);

end.

2)

var p, i: integer;

begin

p :=1;

for i :=1 to 20 do

p := p * i;

write(p);

end.

Answer 2

Давайте начнем с решения этих задач на языке программирования Pascal и Python.

1) Найти сумму всех натуральных чисел N (N < 1000), кратных 11, но не кратных 3.

Pascal:

pascalCopy code
program SumOfNumbers;

var
  N, Sum: integer;

begin
  Sum := 0;
  for N := 1 to 999 do
  begin
    if (N mod 11 = 0) and (N mod 3 <> 0) then
      Sum := Sum + N;
  end;
  writeln('Сумма всех чисел, кратных 11, но не кратных 3, меньше 1000: ', Sum);
end.

Python:

pythonCopy code
# Найти сумму всех натуральных чисел N (N < 1000), кратных 11, но не кратных 3.

Sum = 0
for N in range(1, 1000):
    if (N % 11 == 0) and (N % 3 != 0):
        Sum += N

print('Сумма всех чисел, кратных 11, но не кратных 3, меньше 1000:', Sum)

2) Найти произведение всех натуральных чисел от 1 до 20.

Pascal:

pascalCopy code
program ProductOfNumbers;

var
  N, Product: integer;

begin
  Product := 1;
  for N := 1 to 20 do
  begin
    Product := Product * N;
  end;
  writeln('Произведение всех натуральных чисел от 1 до 20: ', Product);
end.

Python:

pythonCopy code
# Найти произведение всех натуральных чисел от 1 до 20.

Product = 1
for N in range(1, 21):
    Product *= N

print('Произведение всех натуральных чисел от 1 до 20:', Product)

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