Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите решить задачу в PascalABC . Вот какая должна получится программа: "Пока пользователь вводит с клавиатуры положительные числа, умножайте их. Значение произведения и количество введённых чисел выведите на экран" Задача должна решатся с помощью ЦИЛКА WHILE

Ответ оставил Гость

Var
  n, mult, count: integer;
begin
  n := 1;
  mult := 1;
  while n > 0 do
  begin
    inc(count);
    mult := mult * n;
    read(n);
  end;
  writeln(Количество чисел: , count - 1);
  writeln(Произведение чисел: , mult);
end.