Ребят в паскале набрать. Считать произведение (при - вопрос №112313891 от Danyaizbanu 02.09.2021 05:40

Question

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

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