Например при x=-1 y=0
Program gt;
var x,y:real;
begin
readln(x,y);
if(y<=x)and(y>=-x)and(x*x+y*y<=1)then writeln('YES') else
writeln('NO');
end.
Ценность, ясность и актуальность
Найди на сайте, там выделен пункт о них.
Современные пользователи Интернета уже привыкли к символьным адресам сайтов, например videouroki.net или urokidoma.org. Действительно, такие адреса и набирать проще, и запоминаются они лучше. Технология доменных имён, благодаря которой работают эти символьные адреса, настолько срослась с Интернетом, что абсолютное большинство пользователей вообще не задумываются о её существовании.
Благодаря доменной системе имён компьютеры получают неповторимые символьные адреса. Домен – это группа компьютеров, которые объединены по некоторому признаку. Доменный адрес формируется из символьных имён доменов. Количество входящих в адрес доменов и число символов в их именах может быть разным. Доменный адрес представляет собой текстовую строку, составленную по особым правилам. Самое важное из этих правил – иерархия доменов.
Система адресов DNS имеет древовидную структуру. Вершины этой структуры называются доменами. Каждый домен может содержать множество «подчинённых» доменов.
Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.