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

Название: Программа на языке программирования Паскаль для нахождения суммы положительных чисел

Объяснение: Для написания программы на языке программирования Паскаль, которая будет находить сумму положительных чисел, введенных с клавиатуры и выводить результат после ввода 0, можно использовать цикл while с предусловием.

Вот пример такой программы:

program SumOfPositiveNumbers;

var

  number, sum: integer;

begin

  sum := 0; // инициализация переменной sum

  

  writeln("Введите положительные числа (для окончания введите 0):");

  readln(number);

  

  while number <> 0 do

  begin

    if number > 0 then

      sum := sum + number; // увеличение суммы, если число положительное

      

    readln(number); // считываем следующее число

  end;

  

  writeln("Сумма положительных чисел составляет: ", sum);

end.

Совет: Чтобы лучше понять данную программу и работу цикла while с предусловием, рекомендуется ознакомиться с базовыми принципами программирования на языке Паскаль, включая операторы условия и цикла.

Задача на проверку: Напишите программу на Паскале, которая будет находить произведение положительных чисел, введенных с клавиатуры, и выводить результат после ввода 0, используя цикл while с предусловием.