Reorganize

Programming Notes/PascalABCnet/div mod/Div и Mod(Счётчик цифр для 2х знаков).pas

@@ -0,0 +1,13 @@
+program div_mod;
+ var a,one,dec,hun,rec:integer;
+  begin
+   WriteLn ('Ââåäèòå ÷èñëî');
+   ReadLn (a);
+   one:=a mod 10;
+   WriteLn ('Öèôðà åäèíèö ÷èñëà - ',one);
+   dec:=(a div 10) mod 10;
+   rec:= dec*10+one;
+   WriteLn ('À ýòî òîæå ÷èñëî - ',rec);
+   Write ('Enter');
+   ReadLn;
+  End.

Programming Notes/PascalABCnet/div mod/Div и Mod(Счётчик цифр).pas

@@ -0,0 +1,16 @@
+program div_mod;
+ var a,one,dec,hun,rec:integer;
+  begin
+   WriteLn ('Ââåäèòå ÷èñëî');
+   ReadLn (a);
+   one:=a mod 10;
+   WriteLn ('Öèôðà åäèíèö ÷èñëà - ',one);
+   dec:=(a div 10) mod 10;
+   WriteLn ('Öèôðà äåñÿòêîâ ÷èñëà - ', dec);
+   hun:= a div 100;
+   WriteLn ('Öèôðà ñîòåí ÷èñëà - ', hun);
+   rec:= hun*100+dec*10+one;
+   WriteLn ('À ýòî òîæå ÷èñëî - ',rec);
+   Write ('Enter');
+   ReadLn;
+  End.

Programming Notes/PascalABCnet/div mod/Div и Mod.pas

@@ -0,0 +1,9 @@
+Program oper;
+Var a,b,c,d,e,f: integer;
+ Begin
+  Read (a,b,c,d);
+  E:=a div b;
+  f:= c mod d;
+  WriteLn (e);
+  WriteLn (f);
+ End.

Programming Notes/PascalABCnet/div mod/k div mod d.pas

@@ -0,0 +1,8 @@
+Program trololo;
+var k,d,r,s:integer;
+ Begin
+  ReadLn(k,d);
+  r:=k div d;
+  s:=k mod d;
+  WriteLn('Если разделить ',k,' на ',d,'Получится ',r,'(остаток ',s,')');
+  end.

Programming Notes/PascalABCnet/div mod/вещественные числа.pas

@@ -0,0 +1,12 @@
+program a7;
+var a:real;
+b:integer;
+ begin
+  ReadLn(a);
+  a:=a*100;
+  b:= Trunc (a);
+  b:=b mod 100;
+  writeln(b);
+  a:=(b div 10) + (b mod 10);
+  writeln(a);
+  end.

Programming Notes/PascalABCnet/div mod/сложение цифр 3значных чисел.pas

@@ -0,0 +1,14 @@
+var a,dec,hun,one,k:integer;
+ begin
+  writeLn('Ââĺäčňĺ ÷čńëî');
+  writeln;
+  readln(a);
+  one:=a mod 10;
+  a:=a div 10;
+  dec:=a mod 10;
+  a:=a div 10;
+  hun:=a mod 10;
+  a:=a div 10;
+  K:=hun+dec+one;
+  write(k);
+ end.

Programming Notes/PascalABCnet/div mod/цифры 2значного числа.pas

@@ -0,0 +1,12 @@
+var a,dec,hun,one:integer;
+ begin
+  writeLn('Ââĺäčňĺ ÷čńëî');
+  writeln;
+  readln(a);
+  one:=a mod 10;
+  a:=a div 10;
+  dec:=a mod 10;
+  a:=a div 10;
+  writeln(dec);
+  writeln(one);
+  end.

Programming Notes/PascalABCnet/div mod/цифры числа 2.pas

@@ -0,0 +1,15 @@
+var a,dec,hun,one:integer;
+ begin
+  writeLn('Ââĺäčňĺ ÷čńëî');
+  writeln;
+  readln(a);
+  one:=a mod 10;
+  a:=a div 10;
+  dec:=a mod 10;
+  a:=a div 10;
+  hun:=a mod 10;
+  a:=a div 10;
+  writeln(hun);
+  writeln(dec);
+  writeln(one);
+  end.

Programming Notes/PascalABCnet/div mod/цифры числа.pas

@@ -0,0 +1,18 @@
+var
+  n: integer;
+  a: array[byte] of byte;
+  i, j: byte;
+ 
+begin
+  i := 1;
+  readln(n);
+  while n > 0 do
+  begin
+    a[i] := n mod 10;
+    inc(i);
+    n := n div 10;
+  end;
+  j := i - 1;
+  for i := j downto 1 do
+    writeln(a[i]);
+end.