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

Series4. Дано целое число $N$ и набор из $N$ вещественных чисел. Вывести сумму и произведение чисел из данного набора.

Решение:

program Series4;
var
  R,Sum,Pro:Real;
  i,N:Integer;
begin
  Sum:=0;
  Pro:=1;
  Write('Введите N: ');
  Readln(N);
  for i:=1 to N do
   begin
     Write('Введите ',i,' число: ');
     Readln(R);
     Sum:=Sum+R;
     Pro:=Pro*R;
   end;
  Writeln(Sum,' ',Pro);
end.

program Series4;

var

R,Sum,Pro:Real;

i,N:Integer;

begin

Sum:=0;

Pro:=1;

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

Readln(N);

for i:=1 to N do

begin

Write('Введите ',i,' число: ');

Readln(R);

Sum:=Sum+R;

Pro:=Pro*R;

end;

Writeln(Sum,' ',Pro);

end.

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

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

begin
  var n:= ReadInteger('Введите количество чисел в наборе:');
  writeln('Введите ', n, ' вещественных чисел');
  var a:= ReadArrReal(n);
  writeln('Сумма чисел: ',a.Sum);
  write('Произведение чисел: ', a.Aggregate(1.0, (p, x) -> p * x))
end.

begin

var n:= ReadInteger('Введите количество чисел в наборе:');

writeln('Введите ', n, ' вещественных чисел');

var a:= ReadArrReal(n);

writeln('Сумма чисел: ',a.Sum);

write('Произведение чисел: ', a.Aggregate(1.0, (p, x) -> p * x))

end.

Ответить

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

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

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

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