Question

Составить программу в PASCAL.
1. В последовательности чисел подсчитать произведение чисел, кратных 3.

Answer 1

var x, sum: integer;
begin
  sum := 1;
  writeln('Введите последовтельность чисел.', #10, '0 - остановить программу, получить результат.');
  repeat
    readln(x);
    if(x mod 3 = 0)  and (x <> 0) then sum := sum * x;
  until(x = 0);
writeln('Произведение числе кратных 3: ', sum);
end.