Написать программу в паскале

1. Вычислить сумму и произведение n первых членов арифметической прогрессии: а1=2; d=3; an=an-1+d.

2, дано натуральное число n. Вычислить (1+1/12)  (1+1/22)  ... (1+1/n2).

3. Дано целое число А. Найти произведение целых чисел из промежутка от 1 до А

Question

Информатика

Лота

28 декабря, 03:02

Написать программу в паскале

1. Вычислить сумму и произведение n первых членов арифметической прогрессии: а1=2; d=3; an=an-1+d.

2, дано натуральное число n. Вычислить (1+1/12)  (1+1/22)  ... (1+1/n2).

3. Дано целое число А. Найти произведение целых чисел из промежутка от 1 до А

+4

Ответы (1)

Знаете ответ на вопрос?

Венюра · Answer 1

1)

var a, s, p, n, i:integer;

begin

readln (n) ;

s:=0; p:=1; a:=2;

for i:=1 to n do begin

p:=p*a;

s:=s+a;

a:=a+3;

end;

writeln (s,' 'p) ;

end.

2)

3) var a, p, i:integer;

begin

readln (a) ;

p:=1;

for i:=1 to a do

p:=p*i;

writeln (p) ;

end.