Question

Составить алгоритм и написать программы нахождения произведения чисел, модуль которых меньше 10 из 20 вводимых с клавиатуры целых чисел. В языке Паскаль!

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadSeqInteger(20).Where(t -> Abs(t) < 10)

     .Aggregate(BigInteger(1), (p, q)-> p * q).Println

end.

Пример

9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9

12157665459056928801

Answer 2

var a,p,i:integer;

begin

p:=1;

for i := 1 to 20 do

begin

read(a);

if (abs(a) < 10)

then p := p * a;

end;

write(p);

end.

Answer 3

Для написания программы нахождения произведения чисел, модуль которых меньше 10 из 20 вводимых с клавиатуры целых чисел на языке Паскаль, следуйте инструкциям ниже:

1. Определите переменные для хранения вводимых чисел и произведения. Также нужно установить счетчик для отслеживания количества введенных чисел, модуль которых меньше 10.

2. Вводите 20 чисел с клавиатуры в цикле и проверьте условие, что модуль каждого числа меньше 10.

3. Если условие выполняется, умножайте это число на текущее значение произведения. Увеличивайте счетчик чисел, удовлетворяющих условию.

4. По завершению цикла выведите итоговое произведение и количество чисел, удовлетворяющих условию.

Теперь составим алгоритм на языке Паскаль и перейдем к написанию программы:

pascalCopy code
program MultiplyNumbers;

var
  inputNumber, product, counter, i: Integer;

begin
  product := 1; // Инициализируем произведение единицей
  counter := 0; // Инициализируем счетчик нулем

  writeln('Введите 20 целых чисел:');

  for i := 1 to 20 do
  begin
    write('Число ', i, ': ');
    readln(inputNumber);

    if abs(inputNumber) < 10 then
    begin
      product := product * inputNumber; // Умножаем число на текущее значение произведения
      counter := counter + 1; // Увеличиваем счетчик чисел, удовлетворяющих условию
    end;
  end;

  writeln('Итоговое произведение чисел, модуль которых меньше 10: ', product);
  writeln('Количество чисел, модуль которых меньше 10: ', counter);

  readln;
end.

Скопируйте код в среду разработки для Паскаля (например, Lazarus) и запустите программу. После запуска она запросит ввод 20 целых чисел с клавиатуры и выведет итоговое произведение чисел, модуль которых меньше 10, а также количество таких чисел.