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

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.

Comments

Немножко сдвинулось,
"begin" должен был быть по строчкой "a,b,c,k:integer"