Question

Ребят помогите в паскале набрать. Считать произведение (при этом в программе нужно указать P=1) введенных с клавиатуры чисел до тех пор, пока не будет введено отрицательное число. Составить программу.

Answer 1

var

a:boolean;

p,new:integer;

begin

 a:=TRUE;

 p:=1;

 while a do

 begin

 readln(new);

 if new >= 0

 then p:= p * new

 else a:=FALSE;

 end;

 writeln(p);

end.

Answer 2

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

pascalCopy code
program CalculateProduct;
var
  num, P: real;
begin
  P := 1; // Инициализация начального значения произведения

  repeat
    writeln('Введите число: ');
    readln(num);

    if num >= 0 then
      P := P * num; // Умножаем текущее число на произведение
  until num < 0; // Прекращаем цикл, если введено отрицательное число

  writeln('Произведение введенных чисел: ', P);
end.

Скопируйте этот код в среду разработки Pascal (например, Lazarus или Free Pascal), чтобы запустить программу. Программа будет считывать числа с клавиатуры и вычислять их произведение, игнорируя отрицательные числа. Когда будет введено отрицательное число, программа завершится и выведет общее произведение.