тааак....
вот етот кусок кода будет работать..
Const koor=25;
Type exact=single;
MyMas=longint;
MyArray=array[1..koor,1..2] of MyMas;
Var g1,g2,p,i,j,i0,j0,c,l,lol:integer;
x,y,x1,x2,y1,y2,k,b:exact;
stop:boolean;
m:MyArray;
init,out:text;
d:longint;
begin
j:=2;
p:=koor;
stop:=false;
assign(out,'out.txt');
rewrite(out);
assign(init,'init.txt');
reset(init);
i:=0;
while not(Eoln(init)) do begin
i:=i 1;
read(init,d);
m[i,1]:=d;
end;
i:=0;
while not(Eof(init)) do begin
i:=i 1;
read(init,d);
m[i,2]:=d;
end;
i:=1;
end.

а дальше надо разобратся)

Так, окей, жду. Самой ничего в голову не лезет %))

ааа.. давай как нить завтра т.е. уже сегодня)) днем додумаю..)

Хорошо, жду :) спасибо :)

Хе-хей! Ну как там? :))

щяс... уроки сделаю и че нить сделаю...)

Доброго времени суток.
Нужна срочная помощь в решении задачи в паскале:
даны 2 окружности на плоскости.наша задача найти их все общие точки.
Первые две строки входного фаила содержат описание окружностей.каждое описание состоит из трех целых чисел-координаты не превосходят 1000 по обсалютной величине. Радиус является положительным числом не превосходящим 1000.

если можно в личку..

Аууууу!

да...) блин напишы задачу поподробней.. то что я написал выше работает...а вторая часть кода нет..немогу разобратся.. мне легче самому написать но мне не очень понятна сама задача)