Question

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

Answer 1

var
  a, b, c, k: integer;begin
  c := 1;
  Writeln('Введите количество чисел');
  readln(b);
  Writeln('Введите число');
  for k := 1 to b do
  begin
    readln(a);
    if a mod 10 = 0 then
      c := c * a;
  end;
  Writeln('Произведение чисел = ', c);
end.