<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('Введите координаты точки:');
var r:=ReadReal('Введите радиус окружности:');
if (x*x+y*y<r*r) and (y<-x) then Writeln('Попадает')
else Writeln('Не попадает')
end.
<u>Примеры</u>
Введите координаты точки: -1.1 1.2
Введите радиус окружности: 2
Не попадает
Введите координаты точки: -1.1 0.8
Введите радиус окружности: 2
Попадает
Ответ 4 это кратчайший путь от пункта А до пункта Е
Вот код и результат выполнения программы на ЯП Python3.6.2
Program gt;
var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer;
begin
read(n);
a0:=0;a1:=0;
a2:=0;a3:=0;
a4:=0;a5:=0;
a6:=0;a7:=0;
a8:=0;a9:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
if(q=0)then a0:=a0+1;
if(q=1)then a1:=a1+1;
***********************
***********************
if(q=9)then a9:=a9+1;
end;
if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no');
end.
буз массива как-то так получиться
В стандартных функциях такого никогда не встречал. Скорее всего это нестандартная процедура или функция, описанная пользователем в начале программы.