Выяснить принадлежит ли точка с координатами (x;y) кругу, радиус которого равен 1, с центром в начале координат.

Program P1;
var x,y,R:real;
Begin
Read(x,y);
R:=1;
If sqrt(sqr(x)+sqr(y))<=R then write ('Yes')
else write ('No');
End.

Выяснить принадлежит ли точка с координатами (x,y) кольцу в начале координат, с внешним радиусом, равным 3 метра, внутренним радиусом - 2,5 м.

Чтобы полностью понять задачу, предлагаю Вам представить кольцо.
Изображение кольца:

Теперь с легкостью можно писать программу для элементарной задачи!

Program P2;
var x,y,R1,R2:real;
Begin
Read(x;y);
R1:=3;
R2:=2.5;
If (sqrt(sqr(x)+sqr(y))>=R2) and (sqrt(sqr(x)+sqr(y)<=R1) then write('Yes')
else write ('No');
End.

Написать свое имя (Я напишу своё), используя команду вывода текста на экран.

Program P3;
Begin
WriteLn('  **     **   **** *    *  ***')
WriteLn('*    * *    * *       * *    *     ')
WriteLn('**** *    * **** *       *     ')
WriteLn('*    * *    * *       * *    *     ')
WriteLn('*    * *    * **** *    *  ***')
End.

Буду добавлять еще задачи, пишите комментарии и предложения в нашу Гостевую книгу