Ребят в паскале набрать. Считать произведение (при - вопрос №12314568 от DeQwert 09.10.2020 01:22

Question

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

DeQwert · 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....