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

Pascal/Linerall/Program1.pas

@@ -0,0 +1,7 @@
+Program pr1;
+var l, n: integer;
+begin
+writeln('Èäèòå íà äëèíó, ñêîëüêî ðàñïèëîâ');
+readln(l,n);
+writeln('Ñðåäÿÿ äëèíà = ', l/n);
+end.

Pascal/Linerall/Program2.pas

@@ -0,0 +1,7 @@
+Program pr;
+var A: integer;
+begin
+writeln('Ðàáîòíèêè ');
+readln(A);
+writeln('Çàðïëàòà ', 624750/A);
+end.

Pascal/Linerall/Program3.pas

@@ -0,0 +1,8 @@
+Program pr1;
+var r: integer;
+begin
+writeln('Ðàäèóñ');
+readln(r);
+writeln('Äëèíà = ', Pi*2*r);
+writeln('Ïëîùàäü = ', Pi*r*r);
+end.

Pascal/Linerall/Program4.pas

@@ -0,0 +1,14 @@
+Program pr1;
+var r1, r2: integer;
+s1, s2: real;
+begin
+writeln('Ðàäèóñ 1');
+readln(r1);
+writeln('Ðàäèóñ 2');
+readln(r2);
+s1:=Pi*r1*r1;
+writeln('Ïëîùàäü 1 = ', s1);
+s2:=Pi*r2*r2;
+writeln('Ïëîùàäü 2 = ', s2);
+writeln('Êîëüöî = ', s2 - s1);
+end.

Pascal/Linerall/Program5.pas

@@ -0,0 +1,11 @@
+Program pr1;
+var A, B, C: integer;
+begin
+writeln('Ñàìîë¸òîâ, ðàêåò, ñïóòíèêîâ');
+readln(A, B, C);
+writeln('Èãîðàê ñáèë:');
+writeln(A,' Ñàìîë¸òîâ');
+writeln(B,' Ðàêåò');
+writeln(C,' Ñïóòíèêîâ');
+writeln('Îí íàáðàë ', A*50+B*100+C*200, ' î÷êîâ');
+end.

Pascal/Linerall/Program6.pas

@@ -0,0 +1,7 @@
+Program pr1;
+var x1, y1, x2, y2: integer;
+begin
+writeln('x1, y1, x2, y2');
+readln(x1,y1,x2,y2);
+writeln('Äëèíà ', sqrt(sqr(x2-x1)+sqr(y2-y1)));
+end.

Pascal/Linerall/Program7.pas

@@ -0,0 +1,7 @@
+program j;
+var z: integer;
+begin
+writeln('Ââĺäčňĺ Z');
+readln(z);
+writeln((z+12*z)/sqr(z));
+end.

Pascal/Linerall/Program8.pas

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

Pascal/Linerall/Program9.pas

@@ -0,0 +1,22 @@
+program gr;
+var N, sum:integer;
+begin
+writeln('×èñëî');
+Readln(N);
+sum:=sum+N div 10000;
+write(N div 10000,'   ');
+N:=N mod 10000;
+sum:=sum+N div 1000;
+write(N div 1000,'   ');
+N:=N mod 1000;
+sum:=sum+N div 100;
+write(N div 100,'   ');
+N:=N mod 100;
+sum:=sum+N div 10;
+write(N div 10,'   ');
+N:=N mod 10;
+sum:=sum+N div 1;
+write(N div 1,'   ');
+N:=N mod 1;
+write(sum);
+end.