Трудная программа

[fait218]

http://i2.pixs.ru/storage/9/4/7/Bezi...81_1843947.jpg
Не могу решить со вчерашнего дня ( помогите пожалуста...

[Hacker19_90]

Так покажите что наработали!

[Stilet]

Но как-то же решить пытаешься? Покажи как.

[fait218]

uses crt;
var i,j:integer;
sum,s:real;
begin
clrscr;
s:=0; sum:=0;
for i:=1 to 100 do
 begin
  for j:=1 to 50 do
   s:=s+1/(i+sqr(j));
 sum:=sum+s;
 end;
writeln('summa rovna: ',sum:5:2);
readln;
end.

вроде она ...

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Hacker19_90]

Сообщение от fait218

uses crt;
var i,j:integer;
sum,s:real;
begin
clrscr;
s:=0; sum:=0;
for i:=1 to 100 do
begin
for j:=1 to 50 do
s:=s+1/(i+sqr(j));
sum:=sum+s;
end;
writeln('summa rovna: ',sum:5:2);
readln;
end.
вроде она ...

НЕТ НЕ ОНА!

[fait218]

Щас ещё пошарю просто вчера решал её одну решить не мог и не помеченых много(

uses crt;
var a: array [1..25] of integer;
    b: array [1..25] of integer;
    s,n,i: integer;
begin
clrscr;
 write('n=');
 readln(n);
 s:=1;k:=1;
 for i:= 1 to n do
  if (a[i]<>a[i]) and (b[i]<>b[i]) then begin - этим доказал что нету подобных
  s:=s*a[i];
  k:=k*b[i]
  j:=k+s; -сделал объединение
  writeln('j',j);
  end;
 writeln;
end.

вроде она, вот думаю что не правильно так как с обьединением запутался(

[Stilet]

А не так?:

var a,b,c: array [1..25] of integer;
    k,j,n,e,i: integer;
begin
 n:=25;
 for i:= 1 to n do begin  a[i]:=i;b[i]:=i*2; end;
 e:=1;
 for i:= 1 to n do begin  k:=0;
  for j:=1 to n do if a[i]=b[j] then begin k:=j;break;end;
  if k<>0 then begin c[e]:=a[i];inc(e);end;
 end;
 for i:= 1 to e do write(c[i]:5);
 readln;
end.

[Mad_Cat]

А не так?:

Stilet скорее нет чем да! так как нужно обьединение
а это

Объедине́ние мно́жеств (тж. су́мма или соедине́ние) в теории множеств — множество, содержащее в себе все элементы исходных множеств.

то есть для вашего примера
ответ должен быть

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 28 30 32 34 36 38 40 42 44 46 48 50

а в вашей программе ответ

2 4 6 8 10 12 14 16 18 20 22 24

а это пересечение а не объединение