Отыскать произведения всех вводных от K до 6 помогите плиз безотлагательно

Найти творенья всех вводных от K до 6 помогите плиз безотлагательно надобно

Задать свой вопрос
1 ответ
//PascalABC.NET 3.1 сборка 1200
begin
  var k := ReadInteger('k =');
  var l := 6;
  if k gt; l then swap(k, l);
  Println(Range(k, l).Aggregate(1,(p, x) -gt; p * x));
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт