Интересные задачки

[Zeir]

Помогите мне их решить

1.Подсчитать сумму чисел от 1 до N включительно.

Входные данные

На вход подается число N, по абсолютной величине не превышает 10 000.

Выходные данные

Единственное число - искомая сумма чисел от 1 до N включительно.

Пример
Входные данные Выходные данные
5 15

2.Определить количество точек пересечения двух кругов.

Входные данные

6 чисел x1, y1, r1, x2, y2, r2, где x1, y1, x2, y2 - координаты центров кругов, а r1, r2 - их радиусы. Все числа - действительные, не превышают по модулю 1000000000, заданные не более чем с 3-мя знаками после запятой.

Выходные данные
Единственное число - количество точек пересечения. Если точек пересечения бесконечное количество - вывести -1.

Пример
Входные данные Выходные данные
0 0 5 5 0 5 2

[Don Karleone]

И чего в них интересного?

[Stilet]

1.Подсчитать сумму чисел от 1 до N включительно.

 readln(n);
for i:=1 to n do begin
 readln(e);summ:=summ+e;
end;

Где все переменные типа integer;

[Mad_Cat]

2.Определить количество точек пересечения двух кругов.

var x1,y1,r1,x2,y2,r2:Real;
res:Integer;
begin
 write('x1=');
 Readln(x1);
 write('y1=');
 Readln(y1);
 write('r1=');
 Readln(r1);
 write('x2=');
 Readln(x2);
 write('y2=');
 Readln(y2);
 write('r2=');
 Readln(r2);
 if (x1=x2) and (y1=y2) and (r1=r2) then res:=-1
 else if (Sqrt(Sqr(x1-x2)+sqr(y1-y2))< (r1+r2)) and (Sqrt(Sqr(x1-x2)+sqr(y1-y2))> abs(r1-r2)) then res:=2
 else if Sqrt(Sqr(x1-x2)+sqr(y1-y2))=r1+r2 then res:=1
 else res:=0;
  Writeln(res);
  readln;
end.

[Zeir]

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

 readln(n);
for i:=1 to n do begin
 readln(e);summ:=summ+e;
end;

Где все переменные типа integer;

А как мне внести ограничение что бы чмсло n небыло больше 10000?

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

var x1,y1,r1,x2,y2,r2:Real;
res:Integer;
begin
 write('x1=');
 Readln(x1);
 write('y1=');
 Readln(y1);
 write('r1=');
 Readln(r1);
 write('x2=');
 Readln(x2);
 write('y2=');
 Readln(y2);
 write('r2=');
 Readln(r2);
 if (x1=x2) and (y1=y2) and (r1=r2) then res:=-1
 else if (Sqrt(Sqr(x1-x2)+sqr(y1-y2))< (r1+r2)) and (Sqrt(Sqr(x1-x2)+sqr(y1-y2))> abs(r1-r2)) then res:=2
 else if Sqrt(Sqr(x1-x2)+sqr(y1-y2))=r1+r2 then res:=1
 else res:=0;
  Writeln(res);
  readln;
end.

спасибо большое

[Stilet]

А как мне внести ограничение что бы чмсло n небыло больше 10000?

А методички почитать религия не позволяет?

repeat
 readln(n);
until n<10000;

[evg_m]

1.Подсчитать сумму чисел от 1 до N включительно.

sum =(1 + N ) * N div 2; //арифметическая прогрессия

[Gambler]

я конечно понимаю что в задачках ничего интересного, но хоть чушь то не пишите. Лучше как я промолчать, чем вводить людей в заблуждение. К тому же зная уровень Stilet, я не поверю что это ошибка.

 readln(n);
for i:=1 to n do begin
 readln(e);summ:=summ+e;
end;

а должно быть так

 readln(n);
summ:=0; {хотя глобальные переменные и обнуляются}
for i:=1 to n do
 summ:=summ+i;

[Stilet]

а должно быть так

Вообще-то я надеялся что автор всетки приложит к моску руку, и почешет извилины чтоб догадаться... Увы школота видать на то не способна.
К тому же фразу

Подсчитать сумму чисел от 1 до N включительно.

Я понял как подсчитать набор чисел в количестве N

[Gambler]

Ну мы друг друга поняли! )))