6423
13C
Переводим в двоичные коды и разделяем на триады и тетрады
If (xa^2 + ya^2)>r^2 then writeln('Вне окружности')
if (xa^2 + ya^2)<r^2 then writeln('В окружности')
if (xa^2 + ya^2)=r^2 then writeln('На окружности') (имеется ввиду на линии окружности)
a = 1
n = 4 #odd
b = 3 #even
while a != -1:
a = int(input("Insert number:"))
if a == -1:
break
if > b
b += 1
if a > n
n += 1
print(odd)
PascalABC.net
var
i:integer;
a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(-5,5);
write(a[i]:4);
end;
for i:=1 to 10 do
if a[i]>0 then a[i]:=a[i]+2
else a[i]:=0;
writeln;
writeln('Преобразованный массив:');
for i:=1 to 10 do
write(a[i]:4);
<span>end.</span>