Var
x, y : real;
begin
read (x, y);
if sqr (x) + sqr (y) <= 4 then write ('YES') else write ('NO');
end.
В) одним байтом; или я что то не поняла!
Var
i, k, n: integer;
a: array[1..10000]of integer;
begin
readln(n);
for i := 1 to n do read(a[i]);
readln(k);
for i := 1 to n do
if (a[i] = k) then
begin
write(i);
exit;
end;
write('0');
end.
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32