Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Составить на Паскале программу для вычисления суммы ряда S=(x+10)+(x+11)..(x+99)
Составить на Паскале программу для вычисления произведения ряда P=1/2 * 1/4 *...1/10
CРОЧНО!РЕБЯТ,ПОМОГИТЕ ПОЖАЛУЙСТА

Ответ оставил Гость

ВТОРАЯ
var p,s:real;
i:integer;
begin
s:=2;
for i:=1 to 5 do
begin
p:=p+1/s;
s:=s+2;
end;
writeln(Р равно ,p:0:6);
end.
ПЕРВАЯ
var sum,x,i:integer;
begin
write(x= );
read(x);
for i:=10 to 99 do
sum:=x+i+sum;
writeln(Сумма равна ,sum);
end.