Ребят в паскале набрать. Считать произведение - вопрос №12314568 от иришка98 15.02.2021 18:38

Question

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

иришка98 · 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....