отыскать творение чисел в спектре от 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
// Внимание! Если программка не работает, обновите версию!
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
Я мыслю это очень тяжко переучить сотку воспитанников
Воицинская
Вероника
Неправильно размышляете.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов