Ребят в паскале набрать. Считать произведение (при - вопрос №12313666 от danikpro200201 07.02.2020 14:56

Question

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

danikpro200201 · Answer

vara: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....