Question

ПОМОГИТЕ СРОЧНО!!!! (напишите пожалуйста схему и программу )
условие задачи : вводится числа .Найти произведение чисел пока не будет введено 1 ​

Answer 1

Объяснение:

Program zero;

Var a, b, c:Real;

Begin

b:=1;

a:=0;

While a=0 do

Begin

Whiteln('Введите число:');

Readln(c);

If c<>1 then

b:=b*c

else

a:=1

End;

Whiteln('Произведения чисел равно ', b) ;

Readln

End.