Ответ:
0 - нет ничего,отрицание,нет.
1 - носитель информации,подтверждение,да.
Объяснение:
0 - 0
1 - 1
10 - 2
11 - 3
100 - 4
Это всё коды из системы счисления,они обозначают числа.В данном случа - это двоичная система счисления
Var x1,y1,x2,y2,r:real;
begin
readln(x1,y1);
readln(x2,y2);
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(r:5:3);
end.
Пример:
1. 1.
2. 2.
<span>1.414</span>
1) Ане нравятся уроки математики И химии
2) Ане нравятся уроки математики ИЛИ химии
3) Ане нравятся уроки математики И НЕ нравятся уроки химии
//Pascal ABC.NET v3.0 сборка 1111
Const
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
if (a<0) and (not odd(a)) then b:=true else b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(-10,10);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.<span>
</span>