Предмет: Информатика,
автор: dines65466
Написать программу в паскале
1.Вычислить сумму и произведение n первых членов арифметической прогрессии: а1=2; d=3; an=an-1+d.
2,дано натуральное число n. Вычислить (1+1/12)(1+1/22) … (1+1/n2).
3.Дано целое число А. Найти произведение целых чисел из промежутка от 1 до А
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: История,
автор: abibulaevaelvina2
Предмет: Математика,
автор: stovburanastasia8
Предмет: Алгебра,
автор: rejjer293
Предмет: Алгебра,
автор: 1999SO
Предмет: Алгебра,
автор: HamsterNiya