- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
uses crt;
var i,pc2,vc2,tc2,chc2,q,pc,vc,tc,chc,kvt,k,a,b,c,d,t1,t2,t3:integer;
pc1,vc1,tc1,chc1,n,n1,n2:string;
begin
clrscr;
read (n);
n1:=n;
n2:=n;
a:=pos('.',n)+1;{a-nachalo vtorogo chisla}
t1:=pos('.',n);
delete (n,a-1,1);{ybrali iz IP pervuu tochky}
b:=pos('.',n)+2;{b-nachalo tret'ego chisla}
t2:=pos('.',n);
delete (n,b-2,1);{ybrali iz IP vtoruu tochky}
c:=pos('.',n)+3;{c-nachalo chetvertogo chisla}
t3:=pos('.',n);
delete (n,c-3,1);{ybr III tochky}
pc1:=copy(n2,1,a-2);{str chislo 1}
vc1:=copy(n2,a,((t2)-(length(pc1)+1))); {str chislo 2}
q:=t3-length(pc1)-length(vc1)-1;
tc1:=copy(n2,b,q);
q:=length(n2)-length(pc1)-length(vc1)-length(tc1);
chc1:=copy(n2,c,q);
val (pc1,pc2,d);
val (vc1,vc2,d);
val (tc1,tc2,d);
val (chc1,chc2,d);
for i:=1 to length(n) do
begin
if n2[i]='.' then kvt:=kvt+1;
if La-La-La
then
write ('1')
else
write ('0');
repeat until keypressed;
end.