Reorganize

Programming Notes/PascalABCnet/case..of/case1.pas

@@ -0,0 +1,17 @@
+Program case_of;
+ Var a:integer;
+  begin
+   WriteLn('Ââåäèòå íîìåð íîòû');
+   ReadLn(a);
+   case a of
+   1: WriteLn('íîòà äî');
+   2: WriteLn('íîòà ðå');
+   3: WriteLn('íîòà ìè');
+   4: WriteLn('íîòà ôà');
+   5: WriteLn('íîòà ñîëü');
+   6: WriteLn('íîòà ëÿ');
+   7: WriteLn('íîòà ñè');
+   else WriteLn('ÍÅÒ ÒÀÊÎÉ ÍÎÒÛ!!!')
+   end;
+   end.
+   

Programming Notes/PascalABCnet/case..of/case2.pas

@@ -0,0 +1,20 @@
+program case2;
+ var a:integer;
+  begin
+   WriteLn('Ââåäèòå íîìåð ìåñÿöà');
+   ReadLn(a);
+   case a of
+   1: WriteLn('ßíâàðü');
+   2: WriteLn('Ôåâðàëü');
+   3: WriteLn('Ìàðò');
+   4: WriteLn('Àïðåëü');
+   5: WriteLn('May');
+   6: WriteLn('Èþíü');
+   7: WriteLn('Àâãóñò');
+   9:WriteLn('Ñåíòÿáðü');
+   10:WriteLn('Îêòÿáðü');
+   11:WriteLn('Íîÿáðü');
+   12:WriteLn('Äåêàáðü');
+   else WriteLn('ÍÅÒ ÒÀÊÎÃÎ ÌÅÑßÖÀ!!!')
+   END;
+  end.

Programming Notes/PascalABCnet/case..of/case3.pas

@@ -0,0 +1,11 @@
+program case_;
+ var a:integer;
+  begin
+   WriteLn('Ââåäèòå êîë-âî ñëîíèêîâ îò 1 äî 50');
+   ReadLn(a);
+   Case a of
+   1,21,31,41:WriteLn(a,'    ñëîíèê');
+   2..4,22..24,32..34,42..44:WriteLn(a,'     Ñëîíèêa');
+   5..20,25..30,35..40,45..50:WriteLn(a,'     Ñëîíèêîâ');
+   end;
+  end.

Programming Notes/PascalABCnet/case..of/case4.pas

@@ -0,0 +1,12 @@
+program case_adult;
+ var a:integer;
+  begin
+   WriteLn('Ââåäèòå âîçðàñò');
+   ReadLn(a);
+   Case a of
+   1,21,31,41,51,61,71,81,91,101,121,131,141,151,161,171,181,191:writeln('ìíå   ',a,'   ãîä');
+   2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94,102..104,122..124,132..134,142..144,152..154,162..164,172..174,182..184,192..194:writeln('ìíå   ',a,'   ãîäà');
+   5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..100,105..120,125..130,135..140,145..150,155..160,165..170,175..180,185..190,195..200:writeln('ìíå   ',a,'   ëåò');
+   else WriteLn('ÍÅÂÅÐÍÛÉ ÂÎÇÐÀÑÒ!!!');
+   end;
+  end.