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

Автор: Bronislav

Bronislav — Tue, 27 Feb 2018 14:29:39 +0000

//pascalABC.net
begin
  write('введите кол-во чисел в наборе: ');
  var n:=ReadlnInteger('n =');
  writeln('введите набор из ',n,' чисел: ');
  var a:=ReadArrReal(n);
  a.Select((t,i)->power(t,a.Count-i)).Println;
  readln;readln;
end.

//pascalABC.net

begin

write('введите кол-во чисел в наборе: ');

var n:=ReadlnInteger('n =');

writeln('введите набор из ',n,' чисел: ');

var a:=ReadArrReal(n);

a.Select((t,i)->power(t,a.Count-i)).Println;

readln;readln;

end.

Автор: Anton

Anton — Fri, 18 Dec 2015 10:31:09 +0000

Было:

program Series28;
const
 N=5;
var
 Ai,i:Integer;
 R :real;
 A :array [1..N] of real;
begin
 for Ai:=1 to N do
  begin
   write('Введите ',Ai,' число из набора :');
   Readln(A[Ai]);
  end;
 for Ai:=1 to N do
  begin
   R:=1;
   for i:=1 to N-Ai+1 do R:=R*A[Ai];
   writeln(R);
  end;
end.

program Series28;

const

N=5;

var

Ai,i:Integer;

R :real;

A :array [1..N] of real;

begin

for Ai:=1 to N do

begin

write('Введите ',Ai,' число из набора :');

Readln(A[Ai]);

end;

for Ai:=1 to N do

begin

R:=1;

for i:=1 to N-Ai+1 do R:=R*A[Ai];

writeln(R);

end;

end.

Стало:

program Series28;
var
 i,i2,N,Num,Pow :Integer;
begin
  Writeln('N:');
  Readln(N);
  for i:=1 to N do
   begin
     write('Введите ',i,' элемент из набора :');
     Readln(Num);
     Pow:=1;
     For i2:=1  to N-i+1 do Pow:=Pow*Num;
     Writeln(Pow);
  end;
end.

program Series28;

var

i,i2,N,Num,Pow :Integer;

begin

Writeln('N:');

Readln(N);

for i:=1 to N do

begin

write('Введите ',i,' элемент из набора :');

Readln(Num);

Pow:=1;

For i2:=1 to N-i+1 do Pow:=Pow*Num;

Writeln(Pow);

end;

end.

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

Кирилл — Sat, 27 Dec 2014 20:45:55 +0000

uses PT4;
var n,i:integer;
    num:real;
    arr:array of real;
begin
  Task('Series28');
read(n);
SetLength(arr,n);
for i:=0 to n-1 do
  begin
    read(num);
    arr[i]:=num;
  end;
for i:=0 to n-1 do
  begin
    write(exp((n)*ln(arr[i])));
    n-=1;
  end;
end.

uses PT4;

var n,i:integer;

num:real;

arr:array of real;

begin

Task('Series28');

read(n);

SetLength(arr,n);

for i:=0 to n-1 do

begin

read(num);

arr[i]:=num;

end;

for i:=0 to n-1 do

begin

write(exp((n)*ln(arr[i])));

n-=1;

end;

end.