Пока произведение не превысит 50, вводить числа. Указать количество введённых до...

Question

Пока произведение не превысит 50, вводить числа. Указать количество введённых до превышения чисел

Comments

Какое произведение?

---

Произведение x*y, тут само понятно

Answer 1

var x,y:real; i:integer;

Begin

 x := 1;

 while(x < 50) do Begin

   read(y);

   x := x * y;

   writeln(' Произведение = ', x);

   inc(i);

 End;

 write('Введено ',i,' чисел');

End.