Дамп всех задач

Pascal/vetvl/Program1.pas

@@ -0,0 +1,8 @@
+var a: integer;
+begin
+writeln('×èñëî');
+Readln(a);
+if a mod 2 = 0 then writeln('Äà')
+else
+writeln('íåò')
+end.

Pascal/vetvl/Program2.pas

@@ -0,0 +1,8 @@
+var a, b: integer;
+begin
+writeln('×èñëî, äåëèòåëü');
+Readln(a, b);
+if a mod b = 0 then writeln('Äà')
+else
+writeln('íåò')
+end.

Pascal/vetvl/Program3.pas

@@ -0,0 +1,8 @@
+var a, b, c, d: real;
+begin
+writeln('ïåð÷àòîê, ïîðòôåëÿ, ãàëñòóêà, Èñõîäíàÿ ñóììà');
+Readln(a, b, c, d);
+if d-a-b-c >= 0 then writeln('Âàø ñäà÷', d-a-b-c)
+else
+writeln('Íå õâàòàòü', d-a-b-c)
+end.

Pascal/vetvl/Program4.pas

@@ -0,0 +1,9 @@
+var a, b: integer;
+begin
+writeln('îëÿ, êàòÿ');
+Readln(a, b);
+if a < b then writeln('îëÿ')
+else if a=b then writeln('Îäèíàêîãî')
+else
+writeln('êàòÿ')
+end.

Pascal/vetvl/Program5.pas

@@ -0,0 +1,9 @@
+var a, b: integer;
+begin
+writeln('1, 2');
+Readln(a, b);
+if a > b then writeln('1 ', a)
+else if a=b then writeln('Ðàâíû ', a)
+else
+writeln('2 ', b)
+end.

Pascal/vetvl/Program6.pas

@@ -0,0 +1,9 @@
+var a: real;
+begin
+writeln('t');
+Readln(a);
+if 36 > a then writeln('ill ', a)
+else if a >= 37 then writeln('ill ', a)
+else
+writeln('good ', a)
+end.

Pascal/vetvl/Program7.pas

@@ -0,0 +1,9 @@
+var a: integer;
+begin
+writeln('Âîçðàñü');
+Readln(a);
+if 25 > a then writeln('( ', a)
+else if a > 40 then writeln('( ', a)
+else
+writeln(') ', a)
+end.

Pascal/vetvl/Program8.pas

@@ -0,0 +1,8 @@
+var a: integer;
+begin
+writeln('×èñëî');
+Readln(a);
+if a mod 3 = 0 then writeln('Äà')
+else
+writeln('íåò')
+end.

Pascal/vetvl/Program9.pas

@@ -0,0 +1,12 @@
+program gr;
+var N, g:integer;
+begin
+writeln('×èñëî, del');
+Readln(N, g);
+if N div 100 = g then write(N div 100,'   ');
+N:=N mod 100;
+if N div 10 = g then write(N div 10,'   ');
+N:=N mod 10;
+if N div 1 = g then write(N div 1,'   ');
+N:=N mod 1;
+end.