Question

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

Answer 1

Ответ:

Program p1;

Var a, i, n, k: integer;

Begin

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

readln(n);

k:=1;

For i:=1 to n do begin

readln (a);

if (a mod 10 =5) then k:=k*a;

end;

Writeln('Произведение чисел оканчивающихся на 5 - ',k);

End.

Answer 2

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

pascalCopy code
program MultiplyBy5;
var
  sequence: array of Integer;
  i, n: Integer;
  product: Int64; // Используем Int64 для предотвращения переполнения при большом произведении

begin
  // Вводим количество чисел в последовательности
  writeln('Введите количество чисел в последовательности:');
  readln(n);

  // Выделяем память для последовательности
  SetLength(sequence, n);

  // Вводим числа последовательности
  writeln('Введите числа последовательности:');
  for i := 0 to n - 1 do
  begin
    readln(sequence[i]);
  end;

  // Инициализируем произведение
  product := 1;

  // Вычисляем произведение чисел, оканчивающихся на 5
  for i := 0 to n - 1 do
  begin
    if sequence[i] mod 10 = 5 then
    begin
      product := product * sequence[i];
    end;
  end;

  // Выводим результат
  writeln('Произведение чисел, оканчивающихся на 5: ', product);
end.

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

Пожалуйста, обратите внимание, что данный код написан на языке Паскаль. Если вы хотите использовать его в другом окружении, вам может потребоваться внести некоторые изменения.