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

Составьте программу, которая вычисляет произведение естественных чисел от 5 до 10 и выводит на экран результат (ИСПОЛЬЗОВАТЬ ТОЛЬКО ЦИКЛ while)

Задать свой вопрос
1 ответ
Var
i, ans: integer;
Begin
i:= 5;
ans:= 1;
While i lt;= 10 do Begin
  ans:= i*ans;
  i:= i + 1;
  end;
Writeln(ans);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт