Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Подпрограммы функций

Автор: стас 24.05.2004 23:17

Написать подпрограмму-функцию, решающую задачу : Дано натуральное число n и вещественное А1 , А2, ... Аn , которые вводятся по одному . Получить последовательность А1, А1А2, А1А2А3, ..., А1А2.. Аn.

Автор: BlackShadow 25.05.2004 0:03

Код

Var
 n:Integer;
 a:Array[0..100] Of Double;
 an:Double;

Begin
 Write('Enter n: ');
 ReadLn(n);
 a[0]:=1;
 For i:=1 To n Do
 Begin
   Write('Enter A',i,': ');
   ReadLn(an);
   a[i]:=a[i-1]*an
 End;
 WriteLn('Chain:');
 For i:=1 To n Do
   WriteLn(a[i])
End.