Написать программу вычисления суммы n членов ряда Код должен быть на Java. Если не знаете этот язык, то хотя бы объясните, как это делать, на том, которым вы владеете. Очень нужно.

Графический редактор Paint (paint — краска), входящий в набор стандартных инструментальных средств операционной системы Windows, предназначен для создания и редактирования черно-белых и цветных рисунков и чертежей. Рисунки, подготовленные в редакторе Paint, относятся к так называемой растровой графике (см. главу 4), когда изображение на экране дисплея рассматривается как совокупность, состоящая из некоторого количества строк, а каждая строка состоит из некоторого количества точек, которые принято называть пикселами, то есть элементарными единицами изображения. Цвет каждого пиксела задается независимым от остальных образом. Весь набор пикселов, из которых состоит рисунок, образует двухмерный массив — растр илибитовую карту изображения. Основным достоинством этого формирования изображения является его простота. Вместе с тем рисунки, построенные таким образом, плохо масштабируются, то есть увеличиваются или уменьшаются в размерах, так как при этом возникают существенные искажения изображения. Подготовленные в редакторе рисунки могут быть напечатаны на принтере, перенесены в документ, созданный в текстовом редакторе, или записаны в файл на дисковое устройство. Файлы, создаваемые редактором Paint, по умолчанию получают стандартное расширение .bmp (от bit map — битовая карта).

1. "Школьное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r