Решаем задачи Абрамян на Паскале. For20

For20. Дано целое число $N$ ( $> 0$ ). Используя один цикл, найти сумму $1! + 2! + 3! + … + N!$ (выражение $N!$ — $N$ -факториал — обозначает произведение всех целых чисел от $1$ до $N$ : $N! = 1*2*…*N$ ). Чтобы избежать целочисленного переполнения, проводить вычисления с помощью вещественных переменных и вывести результат как вещественное число.

Решение:

program For20;
var
  Rez:Real;
  N, i :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  Rez:=1;
  For i:=2  to N-1 do
   begin
    Rez:=Rez+Rez*i;
   end;
  Writeln(Rez);
end.

program For20;

var

Rez:Real;

N, i :Integer;

begin

Write('Введите N: ');

Readln(N);

Rez:=1;

For i:=2 to N-1 do

begin

Rez:=Rez+Rez*i;

end;

Writeln(Rez);

end.

Решение от SW_Developer:

program For20;
var
 Rez, sum :Real;
 N, i :Integer;
begin
 Write('Введите N: ');
 Readln(N);
 Rez :=1;
 sum :=0;
 For i:=1 to N do
 begin
 Rez:=Rez*i;
 sum := sum + Rez;
 end;
 Writeln(sum);
end.

program For20;

var

Rez, sum :Real;

N, i :Integer;

begin

Write('Введите N: ');

Readln(N);

Rez :=1;

sum :=0;

For i:=1 to N do

begin

Rez:=Rez*i;

sum := sum + Rez;

end;

Writeln(sum);

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии 6

Кирилл

11.12.2014 в 23:15

Что-то не сходится. Задачник ругается.

Ответить
- Anton
  
  12.12.2014 в 14:28
  
  Исправил «For i:=1 to N-1 do» на «For i:=2 to N-1 do». Вычисления начинаются с 2! так как «Rez:=1;» это и есть 1!
  
  Ответить

Вот рабочий код:

var
  Rez, sum :Real;
  N, i :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  Rez :=1;
  sum :=0;
  For i:=1  to N do
   begin
    Rez:=Rez*i;
    sum := sum + Rez;
   end;
  Writeln(sum);
end.

var

Rez, sum :Real;

N, i :Integer;

begin

Write('Введите N: ');

Readln(N);

Rez :=1;

sum :=0;

For i:=1 to N do

begin

Rez:=Rez*i;

sum := sum + Rez;

end;

Writeln(sum);

end.

Ответить

Исправил на ваше решение.
Было:

program For20;
var
  Rez:Real;
  N, i :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  Rez:=1;
  For i:=2  to N-1 do
   begin
    Rez:=Rez+Rez*i;
   end;
  Writeln(Rez);
end.

program For20;

var

Rez:Real;

N, i :Integer;

begin

Write('Введите N: ');

Readln(N);

Rez:=1;

For i:=2 to N-1 do

begin

Rez:=Rez+Rez*i;

end;

Writeln(Rez);

end.

Ответить

Anton

24.08.2016 в 18:50

Хотя нет, добавил… моё тоже вроде как рабочее …

Ответить

program For20;//pabc.net

//uses PT4;

begin
  //Task('For20');
  var N := ReadInteger();
  var P := 1.0;
  var S := 0.0;
  Range(1, N).ForEach(x -> begin P *= x; S += P end);
  Print(S)
end.

program For20;//pabc.net

//uses PT4;

begin

//Task('For20');

var N := ReadInteger();

var P := 1.0;

var S := 0.0;

Range(1, N).ForEach(x -> begin P *= x; S += P end);

Print(S)

end.

Ответить

Решаем задачи Абрамян на Паскале. For20

Комментарии:

Комментарии 6

Добавить комментарий для Bronislav Отменить ответ