Помогите с информатикой!вычислить N!=1*2*3*...*N с помощью паскаля
Помогите с информатикой!
вычислить N!=1*2*3*...*N с подмогою паскаля
1 ответ
Semik
1. Современное решение
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программка не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln(n,'! = ',2.To(n).Aggregate(BigInteger(1),(i,j)-gt;i*j))
end.
Образцы
n= 20
20! = 2432902008176640000
n= 43
43! = 60415263063373835637355132068513997507264512000000000
2. "Школьный древний вариант"
// Free Pascal 3.0.0
var
i,n:longint;
P:int64;
begin
Write('n= '); Read(n);
if ngt;20 then
Writeln('Очень великое n, возможно 1,2, ... 20')
else begin
P:=1;
for i:=2 to n do P:=P*i;
Writeln(n,'! = ',P);
end
end.
Образцы
n= 20
20! = 2432902008176640000
n= 43
Очень большое n, возможно 1,2, ... 20
Если не делать проверки n, было бы
n= 43
43! = -7904866829883932672
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программка не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln(n,'! = ',2.To(n).Aggregate(BigInteger(1),(i,j)-gt;i*j))
end.
Образцы
n= 20
20! = 2432902008176640000
n= 43
43! = 60415263063373835637355132068513997507264512000000000
2. "Школьный древний вариант"
// Free Pascal 3.0.0
var
i,n:longint;
P:int64;
begin
Write('n= '); Read(n);
if ngt;20 then
Writeln('Очень великое n, возможно 1,2, ... 20')
else begin
P:=1;
for i:=2 to n do P:=P*i;
Writeln(n,'! = ',P);
end
end.
Образцы
n= 20
20! = 2432902008176640000
n= 43
Очень большое n, возможно 1,2, ... 20
Если не делать проверки n, было бы
n= 43
43! = -7904866829883932672
Костян Тутихин
Спасибо громадное!)))))
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов