Вопрос по информатике:
Описать функцию, вычисляющую N!. С её помощью вычислить сумму факториалов всех чётных чисел от А до В. Значения А и В ввести с клавиатуры
Пожаловаться
- 19.01.2016 14:42
- Информатика
- remove_red_eye 4481
- thumb_up 28
Ответы и объяснения 1
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
function factorial(n: integer): longint;
begin
var p := 1;
for var i := 1 to n do
p := p * i;
Result := p;
end;
begin
var a := ReadInteger('a=');
var b := ReadInteger('b=');
var s := 0;
for var i := a to b do
if i mod 2 = 0 then s := s + factorial(i);
writeln('S = ', s);
end.
Писалось на скорую руку без проверок и оптимизации
//Если программа не запускается, то обновите версию
function factorial(n: integer): longint;
begin
var p := 1;
for var i := 1 to n do
p := p * i;
Result := p;
end;
begin
var a := ReadInteger('a=');
var b := ReadInteger('b=');
var s := 0;
for var i := a to b do
if i mod 2 = 0 then s := s + factorial(i);
writeln('S = ', s);
end.
Писалось на скорую руку без проверок и оптимизации
Пожаловаться
- 20.01.2016 12:21
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы