ПОМОГИТЕ СРОЧНО!!!! (напишите пожалуйста схему и программу )
условие задачи : вводится числа .Найти произведение чисел пока не будет введено 1
условие задачи : вводится числа .Найти произведение чисел пока не будет введено 1
More Questions From This User See All
Answers & Comments
Объяснение:
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.