отыскать творение чисел в спектре от 2 до kВ PascalABC.NET

Отыскать произведение чисел в диапазоне от 2 до k
В PascalABC.NET

Задать свой вопрос
Арина Кондрина
Обновите сборку, эта обветшала, причем очень очень.
1 ответ
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!

1. По-современному, для чего этот язык и создавался

begin
  var k:=ReadInteger('k=');
  Writeln(2.To(k).Aggregate(BigInteger(1),(p,q)-gt;p*q))
end.

Образцы
k= 10
3628800

k= 137
5012888748274991661034926292112253883237205694398754483388962668892510972746226260034675717797072343372830591567227826571884373881355612819314826377917827129740056802397016509378163883274055583382110208000000000000000000000000000000000

2. По-старинке, т.е. используя этот язык, как Турбо Паскаль четвертьвековой давности

var
  i,k:integer;
  p:real;

begin
  Write('k= '); Read(k);
  p:=1;
  for i:=2 to k do p:=p*i;
  Writeln(p)
end.

Образцы
k= 10
3628800

k= 137
5.01288874827499E+234
Agata Vedmankina
Дело в том,что конкретно эту сборку мы используем при работе в школе,на уроках информатики
Тема Яичев
Верую. Но я ничего вроде не использовал такового, что в этой сборке не пройдет.
Мария Бимц
Ну и намекните учителю, что за прошедшее время было выловлено и устранено огромное количество ошибок. И появилось огромное количество вкусняшек.
Кирюха
К примеру, с этого года можно строить в ступень вот так: a**b
Катя Эрпылевская
С середины ноября в поставку вошла новая сильная стандартная библиотека численных способов. И так далее.
Nelli Brychkova
Я мыслю это очень тяжко переучить сотку воспитанников
Воицинская Вероника
Неправильно размышляете.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт