vlad/code_olymp
1
0
Fork 0
Code Pull Requests Releases Activity

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

Browse Source
This commit is contained in:
Vlad Utkin
2017-05-22 13:29:43 +03:00
parent b970626fef
commit 93746b05d7
173 changed files with 2505 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Pascal/Linerall/Program1.pas Normal file
View File

@@ -0,0 +1,7 @@
Program pr1;
var l, n: integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
readln(l,n);
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> = ', l/n);
end.

7
Pascal/Linerall/Program2.pas Normal file
View File

@@ -0,0 +1,7 @@
Program pr;
var A: integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ');
readln(A);
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ', 624750/A);
end.

8
Pascal/Linerall/Program3.pas Normal file
View File

@@ -0,0 +1,8 @@
Program pr1;
var r: integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
readln(r);
writeln('<27><><EFBFBD><EFBFBD><EFBFBD> = ', Pi*2*r);
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = ', Pi*r*r);
end.

14
Pascal/Linerall/Program4.pas Normal file
View File

@@ -0,0 +1,14 @@
Program pr1;
var r1, r2: integer;
s1, s2: real;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1');
readln(r1);
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 2');
readln(r2);
s1:=Pi*r1*r1;
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1 = ', s1);
s2:=Pi*r2*r2;
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 2 = ', s2);
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = ', s2 - s1);
end.

11
Pascal/Linerall/Program5.pas Normal file
View File

@@ -0,0 +1,11 @@
Program pr1;
var A, B, C: integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
readln(A, B, C);
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>:');
writeln(A,' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
writeln(B,' <20><><EFBFBD><EFBFBD><EFBFBD>');
writeln(C,' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
writeln('<27><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ', A*50+B*100+C*200, ' <20><><EFBFBD><EFBFBD><EFBFBD>');
end.

7
Pascal/Linerall/Program6.pas Normal file
View File

@@ -0,0 +1,7 @@
Program pr1;
var x1, y1, x2, y2: integer;
begin
writeln('x1, y1, x2, y2');
readln(x1,y1,x2,y2);
writeln('<27><><EFBFBD><EFBFBD><EFBFBD> ', sqrt(sqr(x2-x1)+sqr(y2-y1)));
end.

7
Pascal/Linerall/Program7.pas Normal file
View File

@@ -0,0 +1,7 @@
program j;
var z: integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Z');
readln(z);
writeln((z+12*z)/sqr(z));
end.

16
Pascal/Linerall/Program8.pas Normal file
View File

@@ -0,0 +1,16 @@
program gr;
var N:integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD>');
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.

22
Pascal/Linerall/Program9.pas Normal file
View File

@@ -0,0 +1,22 @@
program gr;
var N, sum:integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD>');
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.