Question

Написать программу в паскале 1.Вычислить сумму и произведение n первых членов арифметической прогрессии: а1=2; d=3; an=an-1+d. 2,дано натуральное число n. Вычислить (1+1/12)(1+1/22) … (1+1/n2). 3.Дано целое число А. Найти произведение целых чисел из промежутка от 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.