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

8
Pascal/vetvl/Program1.pas Normal file
View File

@@ -0,0 +1,8 @@
var a: integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD>');
Readln(a);
if a mod 2 = 0 then writeln('<27><>')
else
writeln('<27><><EFBFBD>')
end.

8
Pascal/vetvl/Program2.pas Normal file
View File

@@ -0,0 +1,8 @@
var a, b: integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Readln(a, b);
if a mod b = 0 then writeln('<27><>')
else
writeln('<27><><EFBFBD>')
end.

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

@@ -0,0 +1,8 @@
var a, b, c, d: real;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>');
Readln(a, b, c, d);
if d-a-b-c >= 0 then writeln('<27><><EFBFBD> <20><><EFBFBD><EFBFBD>', d-a-b-c)
else
writeln('<27><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', d-a-b-c)
end.

9
Pascal/vetvl/Program4.pas Normal file
View File

@@ -0,0 +1,9 @@
var a, b: integer;
begin
writeln('<27><><EFBFBD>, <20><><EFBFBD><EFBFBD>');
Readln(a, b);
if a < b then writeln('<27><><EFBFBD>')
else if a=b then writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
writeln('<27><><EFBFBD><EFBFBD>')
end.

9
Pascal/vetvl/Program5.pas Normal file
View File

@@ -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('<27><><EFBFBD><EFBFBD><EFBFBD> ', a)
else
writeln('2 ', b)
end.

9
Pascal/vetvl/Program6.pas Normal file
View File

@@ -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.

9
Pascal/vetvl/Program7.pas Normal file
View File

@@ -0,0 +1,9 @@
var a: integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Readln(a);
if 25 > a then writeln('( ', a)
else if a > 40 then writeln('( ', a)
else
writeln(') ', a)
end.

8
Pascal/vetvl/Program8.pas Normal file
View File

@@ -0,0 +1,8 @@
var a: integer;
begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD>');
Readln(a);
if a mod 3 = 0 then writeln('<27><>')
else
writeln('<27><><EFBFBD>')
end.

12
Pascal/vetvl/Program9.pas Normal file
View File

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