Question

Программы паскаль! 1)Найдите произведение чисел, кратных 7, от 1 до 70 2)Найдите количество количество нечётных чисел от 0 до 1000

Answer 1

// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
  Writeln(Range(7,70,7).Aggregate(biginteger(1),(i,j)->i*j))
end.

Результат
1025046183571200

// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
  Writeln(Range(1,1000,2).Count)
end.

Результат
500

Answer 2

Вот две программы на языке Pascal, которые помогут вам решить ваши задачи:

Программа для нахождения произведения чисел, кратных 7, от 1 до 70:

program Proizvedenie;

var
  i, proizv: integer;

begin
  proizv := 1;
  for i := 1 to 70 do
  begin
    if i mod 7 = 0 then
      proizv := proizv * i;
  end;
  writeln('Произведение чисел, кратных 7, от 1 до 70: ', proizv);
end.

В этой программе мы используем цикл `for`, чтобы перебрать все числа от 1 до 70. Затем мы проверяем, делится ли текущее число на 7 без остатка с помощью оператора `mod`. Если число делится на 7 без остатка, мы умножаем его на переменную `proizv`, которая инициализирована значением 1. В конце программы мы выводим итоговое произведение.

Программа для нахождения количества нечетных чисел от 0 до 1000:

program Nechetnye;

var
  i, count: integer;

begin
  count := 0;
  for i := 0 to 1000 do
  begin
    if i mod 2 <> 0 then
      count := count + 1;
  end;
  writeln('Количество нечетных чисел от 0 до 1000: ', count);
end.

В этой программе мы также используем цикл `for`, чтобы перебрать все числа от 0 до 1000. Затем мы проверяем, делится ли текущее число на 2 с остатком, используя оператор `mod`. Если остаток от деления не равен нулю, то число нечетное, и мы увеличиваем переменную `count` на 1. В конце программы мы выводим итоговое количество нечетных чисел.

Надеюсь, эти программы помогут вам решить ваши задачи! Если у вас есть еще вопросы, не стесняйтесь задавать!