составить программку которая вводит с клавиатуры и умножает числа до тех

Составить программу которая вводит с клавиатуры и множит числа до тех пор пока протизведение не превзойдет 1000 .Вывести на экран произведение

Задать свой вопрос
1 ответ
Var
  p, num: integer;
begin
  p := 1;
  while p lt;= 1000 do
  begin
    read(num);
    p := p*num;
  end;
  writeln(p);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт