Запастись произведение введённых с клавиатуры чисел до тех пор пока значение

Запастись творенье введённых с клавиатуры чисел до тех пор пока значение произведения не превысят P. Вывести приобретенное творение на экран.

Задать свой вопрос
1 ответ
Var a,p,p1:Integer;
begin Write('Введите число, которое должно превысить творенье чисел (p): ');
ReadLn(p);
p1:=1;
while p1lt;=p do
begin
Write('Введите число: ');
ReadLn(a);
p1:=p1*a
end;
WriteLn('Творение введенных чисел: ',p1)
end. 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт