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

Автор: Bronislav

Bronislav — Sun, 27 Jan 2019 21:11:09 +0000

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.

Автор: Anton

Anton — Wed, 24 Aug 2016 14:50:23 +0000

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

Автор: Anton

Anton — Wed, 24 Aug 2016 14:47:31 +0000

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

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

SW_Developer — Wed, 24 Aug 2016 08:09:35 +0000

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

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.

Автор: Anton

Anton — Fri, 12 Dec 2014 10:28:47 +0000

В ответ на Кирилл. Исправил "For i:=1 to N-1 do" на "For i:=2 to N-1 do". Вычисления начинаются с 2! так как "Rez:=1;" это и есть 1!

Автор: Кирилл

Кирилл — Thu, 11 Dec 2014 19:15:04 +0000

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