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

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

Решение:

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

program For19;

var

Rez:Real;

N, i :Integer;

begin

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

Readln(N);

Rez:=1;

For i:=1 to N do

begin

Rez:=Rez*i;

end;

Writeln(Rez);

end.

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

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

program For19;//pabc.net

//uses PT4;

begin
  //Task('For19');
  var N := ReadInteger();
  var Res := Range(1, N).Aggregate(1.0, (Accum, x)-> Accum * x);
  Print(Res)
end.

program For19;//pabc.net

//uses PT4;

begin

//Task('For19');

var N := ReadInteger();

var Res := Range(1, N).Aggregate(1.0, (Accum, x)-> Accum * x);

Print(Res)

end.

program For19;//pabc.net

//uses PT4;

begin
  //Task('For19');
  var N := ReadInteger();
  var Res := 1.0;
  Range(1, N).ForEach(x -> begin Res *= x end);
  Print(Res)
end.

program For19;//pabc.net

//uses PT4;

begin

//Task('For19');

var N := ReadInteger();

var Res := 1.0;

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

Print(Res)

end.

Ответить

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

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

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

Добавить комментарий Отменить ответ