Ванный набор так и называется
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
const
m = 99;
var
n,i, j: integer;
A,: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.
Вот такая программа (для PascalABC.NET). И еще ты не сказал, что делать с числом, если оно равно 0?
var a,x:integer;
begin
read(a);
if a<0 then x:=0 else x:=a;
writeln(x);
end.
Не забудь откомпилировать перед проверкой.
Уравнение окружности единичного радиуса x²+y²=1.
Точки, лежащие на окружности и вне ее описываются неравенством
x²+y²≥1
Точки, лежащие на границе и внутри квадрата, ограниченного единичными прямыми, удовлетворяют условию
y≥-1 ∧ y≤1 ∧ x≥-1 ∧ y≤1
Совместое выражение запишется так:
y≥-1 ∧ y≤1 ∧ x≥-1 ∧ y≤1 ∧ x²+y²≥1
На языке Паскаль оно пишется почти так же.
(y>=-1) and (y<=1) and (x>=-1) and (x<=1) and (x*x+y*y>=1)