Дано действительное А, натуральное N. Вычислить а(а+1)...(а+n-1)

@Jeremy_Washingt · Регистрация: 14.10.2013

Author24 — интернет-сервис помощи студентам

1) Дано действительное А, натуральное N. Вычислить а(а+1)...(а+n-1)
2) Дано натуральное n та действительные а1,а2,....Аn. Вычеслить а1, а1+а2,...., а1+а2+....Аn

@Puporev · 06.11.2013, 12:10

1)

Pascal

uses crt;
var a,p:real;
    i,n:integer;
begin
write('a=');
read(a);
write('n=');
read(n);
p:=1;
for i:=0 to n-1 do
p:=p*(a+i);
write('p=',p:0:5);
end.

Добавлено через 11 минут
2)

Pascal

uses crt;
var a:array[1..100] of real;
     s:real;
    i,n:integer;
begin
randomize;
write('n=');
read(n);
writeln('Заданные A');
for i:=1 to n do
 begin
  a[i]:=5*random;
  write(a[i]:0:2,' ')
 end;
writeln;
writeln('Вычисленные суммы');
s:=0;
for i:=1 to n do
 begin
  s:=s+a[i];
  write(s:0:2,' ');
 end;
end.

@Jeremy_Washingt 0 / 0 / 0 Регистрация: 14.10.2013 Сообщений: 9
		1
	Дано действительное А, натуральное N. Вычислить а(а+1)...(а+n-1) 05.11.2013, 23:55. Показов 11722. Ответов 1 Метки нет (Все метки) 1) Дано действительное А, натуральное N. Вычислить а(а+1)...(а+n-1) 2) Дано натуральное n та действительные а1,а2,....Аn. Вычеслить а1, а1+а2,...., а1+а2+....Аn 0

	06.11.2013, 12:10

Дано действительное А, натуральное N. Вычислить а(а+1)...(а+n-1)

Решение