Reorganize

Programming Notes/PascalABCnet/while/While_task1.pas

@@ -0,0 +1,11 @@
+Program While_task_1;
+ Var a,b:integer;
+  Begin
+   ReadLn(b);
+   a:=1;
+   While ((a<b) or (a=b)) do
+  begin
+   WriteLn(a);
+   inc (a);
+   end;
+  end.

Programming Notes/PascalABCnet/while/While_task3.pas

@@ -0,0 +1,13 @@
+Program While_Task3;
+ const n=5;
+ var a:integer;
+  begin
+   WriteLn('Ââåäè 5');
+   ReadLn(a);
+   While a<>n do
+   begin
+   WriteLn ('Íå âåðíî, ïîïðîáóé åùå');
+   ReadLn(a);
+   end;
+   WriteLn('Ìîëîäåö');
+  end.

Programming Notes/PascalABCnet/while/While_task7.pas

@@ -0,0 +1,15 @@
+Program While_Task7;
+ const n=10;
+ var a:integer;
+  begin
+   While a<> n do
+   Begin
+   writeln('hello');
+   inc(a);
+   end;
+   a:=0;
+   repeat
+    writeln('hello');
+   inc(a);
+   until a=n;
+   end.

Programming Notes/PascalABCnet/while/While_task8.pas

@@ -0,0 +1,10 @@
+Program While_Task8;
+ const n=25;
+ var a:integer;
+  begin
+   a:=3;
+   Repeat
+   Writeln(a);
+   inc(a);
+   until a>n;
+  end.

Programming Notes/PascalABCnet/while/while2.pas

@@ -0,0 +1,13 @@
+Program While4;
+Var a,b,c:integer;
+ begin
+ ReadLn(a,b);
+ Write (a mod b);
+ {
+ while a mod b =0 do 
+ begin 
+ c:=a mod b;
+ end;
+ WriteLn(c);
+ }
+ end.