===== PascalABC.NET =====
begin
var a:= ArrRandom(30, -99, 99);
Sort(a);
a.Println;
Println('Количество различных чисел:', a.Distinct.Count)
end.
На самом деле в этом решении упорядоченность в массиве значения не имеет, что можно проверить, удалив или закомментировав строку с Sort(a);
Var
x,y:real;
begin
Write('Введите координаты x и y точки: '); Readln(x,y);
Write('Точка с указанными координатами ');
if not ((y<=x) and (x<=2) and ((sqr(x)+sqr(y))>=4) and (y>=0)) then
Write('не ');
Writeln('принадлежит заштрихованной области.')
end.
<em><u>Примеры выполнения программы:</u></em>
Введите координаты x и y точки: 1.9 2.1
Точка с указанными координатами не принадлежит заштрихованной области.
Введите координаты x и y точки: 1.9 1.82
Точка с указанными координатами принадлежит заштрихованной области.
Введите координаты x и y точки: 1 -3
Точка с указанными координатами не принадлежит заштрихованной области.
А) D:\Школа\Ученики.
Б) D:\Школа\Ученики\Успеваемость.
В) D:\Школа\Ученики.
Г) D:\Школа\Ученики\Нарушения.
Ответ: 2.
Научная, деловая, иллюстрированная, художественная и рекламная графика, компьютерная анимация.