From 95397cd8f104a2d2b8a79e95c3f00ea10694cb46 Mon Sep 17 00:00:00 2001
From: vlad <viad.2000@yandex.ru>
Date: Thu, 18 May 2017 13:13:12 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=B8=D1=82?=
 =?UTF-8?q?=D1=8C=20'bin.pas'?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 bin.pas | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 bin.pas

diff --git a/bin.pas b/bin.pas
new file mode 100644
index 0000000..2302fab
--- /dev/null
+++ b/bin.pas
@@ -0,0 +1,41 @@
+procedure dec2bin(N: integer);
+begin
+  if N >= 2 then
+    dec2bin(N div 2);
+  Write(N mod 2);
+end;
+
+function step(x:integer):longint;
+ var i:integer; st:longint;
+ begin
+ if x=0 then step:=1 else begin
+      st:=1;
+      for i:=1 to x do begin
+      st:=st*2;
+      step:=st;
+      end; end;
+ end;
+var k,a,b,d,s:longint;
+
+
+begin
+s:=0;
+k:=0;
+writeln('выберите режим 1:Bintodec 2:Dectobin'k;
+readln(a);
+if a=1 then begin
+readln(a);
+
+repeat
+      b:=a mod 10;
+      d:=a div 10;
+      s:=s+b*step(k); 
+      k:=k+1;
+      a:=d;
+until d=0;
+writeln(s);
+end; else begin 
+readln(a);
+dec2bin(a);
+end;
+end.
\ No newline at end of file