Delphi Задача

[Lexa567]

Помогите пожалуйста решить первую задачу
http://s019.radikal.ru/i618/1204/c7/4b9c2361c25c.jpg
С окружностью знаю как,а тут не получается
Заранее благодарен.

[eoln]

Ничего сложного. Сначала напиши как это выглядит математически

[whatever]

1)

if x<y then принадлежит
else не принадлежит

2)вообще элементарно, тупо сравнить, даже без цикла можно.

3)
а)берешь фомулу прогрессии
б)вводишь с клавиатуры n
в)крутишь в цикле for i:=1 to n do
г)??
д)ПРОФИТ

[Serge_Bliznykov]

if x<y then принадлежит
else не принадлежит

два уточнения.
первое. важное. обязательное условие x>0
т.е.

if (x<y) and (x>0)
   then принадлежит
   else не принадлежит

второе. мелочь. что делать, если точка попадает на границу области.
ну, раз не сказано в условии, программист волен сам решать, попадает ли точка, лежащая на границе заштрихованной области в эту область или нет.
Если неравества строгие (как в решении выше), то точка, лежащая на границе - НЕ ПОПАДАЕТ в область.

решение 2-й задачи. можно и с циклом решение написать

var
  a, b, c, t : Integer;
begin
     Readln(a, b, c);

     while (c<b) or (b<a) do begin
       if c < b then begin
          t := b; b := c; c := t;
       end;

       if b < a then begin
         t := a; a := b; b := t;
       end;
     end;

     WriteLn (a,' ',b,' ',c);
     Readln
end.