- 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.
guest8 28.05.2018 15:41 # −999
anal_herpes 28.05.2018 16:07 # 0
guest8 28.05.2018 16:13 # −999
roskomgovno 29.05.2018 21:11 # 0
типичная программа, кмк
666_N33D135 29.05.2018 21:14 # 0
roskomgovno 29.05.2018 21:15 # 0
666_N33D135 29.05.2018 21:31 # 0
guest8 29.05.2018 21:37 # −999
666_N33D135 29.05.2018 21:41 # 0
666_N33D135 28.05.2018 21:47 # +1
Laa-la-la-la-laa-la-laa
Vertitsa bistrey zemlya
Verenick 29.10.2018 12:11 # 0
KpunoBblu_nemyx 28.01.2020 16:36 # 0
Steve_Brown 29.05.2018 13:44 # 0
666_N33D135 29.05.2018 14:37 # 0
guest8 29.05.2018 14:43 # −999
roskomgovno 29.05.2018 21:10 # 0
guest8 29.05.2018 14:41 # −999
Doctor_Who 30.05.2018 20:36 # 0
guest8 30.05.2018 21:29 # −999
666_N33D135 29.05.2018 14:48 # 0
Это заклинание какое-то?
Ты свой код запостил, или своего одноклассника?