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

Series2. Даны десять вещественных чисел. Найти их произведение.

Решение:

program Series2;
var
  R,Rez:Real;
  i:Integer;
begin
  Rez:=1;
  for i:=1 to 10 do
   begin
     Write('Введите ',i,' число: ');
     Readln(R);
     Rez:=Rez*R;
   end;
  Writeln(Rez);
end.

program Series2;

var

R,Rez:Real;

i:Integer;

begin

Rez:=1;

for i:=1 to 10 do

begin

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

Readln(R);

Rez:=Rez*R;

end;

Writeln(Rez);

end.

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

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

Bronislav

20.02.2018 в 11:48

gin write('Произведение чисел = ',ReadSeqReal('Введите 10 вещественных чисел: ',10).Aggregate(1,(x,y)->x*y)) end.

1
2
3

gin
write('Произведение чисел = ',ReadSeqReal('Введите 10 вещественных чисел: ',10).Aggregate(1,(x,y)->x*y))
end.

Ответить

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

➤