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

21
Pascal/03.11.16/Program1.pas Normal file
View File

@@ -0,0 +1,21 @@
var
a: array[1..30] of integer;
i, k, ki, kmax, kimax: integer;
begin
for i := 1 to 30 do begin a[i] := random(10);write(a[i], ' '); end;
writeln();
kmax := 0;
kimax := 0;
for i := 1 to 29 do
begin
ki := i;
k := a[i] + a[i + 1];
if k > kmax then
begin
kmax:=k;
kimax:=ki;
end;
end;
writeln(kimax, ':= ', kmax);
end.

18
Pascal/03.11.16/Program10.pas Normal file
View File

@@ -0,0 +1,18 @@
const
N = 30;
var
a: array [1..N] of integer;
i, j, min: integer;
begin
Randomize();
for i := 1 to N do begin a[i] := Random(0, 100);write(a[i], ' '); end;
writeln();
min:=100;
for i := 1 to N do
begin
if (a[i] > 20) and (min > a[i]) then min := a[i];
end;
writeln(min);
end.

23
Pascal/03.11.16/Program11.pas Normal file
View File

@@ -0,0 +1,23 @@
const
N = 4;
var
a: array [1..N, 1..N] of integer;
i, j: integer;
d: real;
begin
Randomize();
for i := 1 to N do begin for j := 1 to N do begin a[i][j] := Random(5);write(a[i][j], ' '); end;writeln(); end;
writeln();
d:=0;
for i := 1 to N do
begin
for j := 1 to N do
begin
d:=d+a[i][j];
end;
end;
d:=d/N;
writeln(d);
end.

19
Pascal/03.11.16/Program12.pas Normal file
View File

@@ -0,0 +1,19 @@
const
N = 30;
var
a: array [1..N] of integer;
i, j: integer;
s: real;
begin
Randomize();
for i := 1 to N do begin a[i] := Random(0, 100);write(a[i], ' '); end;
writeln();
j := 0;
for i := 1 to N do begin j := j + a[i]; end;
s := j / N;
j := 0;
for i := 1 to N do begin if a[i] > s then begin j := j + 1 end; end;
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ', s, ' <20><><EFBFBD>-<2D><>: ', j);
end.

17
Pascal/03.11.16/Program13.pas Normal file
View File

@@ -0,0 +1,17 @@
const
N = 30;
var
a: array [1..N] of integer;
i, j, x: integer;
begin
Randomize();
for i := 1 to N do begin a[i] := Random(125);write(a[i], ' '); end;
x:=Random(5);
writeln('x:= ',x);
j:=0;
for i:=N downto 1 do begin if a[i]=x then j:=i; end;
if j = 0 then writeln('none') else
writeln(' ',j);
end.

23
Pascal/03.11.16/Program14.pas Normal file
View File

@@ -0,0 +1,23 @@
const
N = 30;
var
a: array [1..N] of integer;
i, k, max, max2: integer;
begin
Randomize();
for i := 1 to N do begin a[i] := Random(9);write(a[i], ' '); end;
writeln();
k := 0;
max := 0;
max2 := 0;
for i := 1 to N do
begin
if a[i] > max then begin
max2 := max;
max := a[i];
end;
end;
writeln(max2);
end.

18
Pascal/03.11.16/Program2.pas Normal file
View File

@@ -0,0 +1,18 @@
var
a: array[1..30] of integer;
i, k, ki, kmax, kimax: integer;
begin
for i := 1 to 30 do begin a[i] := random(10);write(a[i], ' '); end;
writeln();
kmax := 0;
kimax := 0;
for i := 1 to 29 do
begin
if a[i] = a[i + 1] then
k := k + 1
else k := 1;
if k > kmax then kmax := k;
end;
writeln(kimax, ':= ', kmax);
end.

22
Pascal/03.11.16/Program4.pas Normal file
View File

@@ -0,0 +1,22 @@
var
a: array[1..10, 1..20] of integer;
i, j, sum, ssum, ssumk: integer;
begin
for i := 1 to 10 do begin write(i, ': ');for j := 1 to 20 do begin a[i, j] := random(10);write(a[i, j], ' '); end;writeln; end;
writeln();
ssum := 9999;
for i := 1 to 10 do
begin
sum := 0;
for j := 1 to 20 do
begin
sum := sum + a[i, j];
end;
if sum < ssum then begin
ssum := sum;
ssumk := i;
end;
end;
writeln(ssumk, ': ', ssum);
end.

22
Pascal/03.11.16/Program8.pas Normal file
View File

@@ -0,0 +1,22 @@
const
N = 30;
var
A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
Randomize();
for i := 1 to N do begin A[i] := Random(160, 200);write(A[i], ' '); end;
x:=0;
y:=0;
for i := 1 to N do
begin
if A[i]>180 then begin
x:=x+1;
y:=y+A[i];
end;
end;
write('x= ', x, ' y= ', y, ' cp= ', y/x);
end.

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

@@ -0,0 +1,22 @@
const
N = 31;
var
A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
Randomize();
for i := 1 to N do begin A[i] := Random(-20, 20);write(A[i], ' '); end;
x := 0;
y := 0;
for i := 1 to N do
begin
if A[i] > 0 then begin
x := x + 1;
y := y + A[i];
end;
end;
write('x= ', x, ' y= ', y, ' cp= ', y / x);
end.

26
Pascal/08.12.16/Program1.pas Normal file
View File

@@ -0,0 +1,26 @@
var
n,i:integer;
r,x1,x2,x3,y1,y2,y3,per:real;
f:Text;
begin
Assign(f, 'input.txt');
Reset(f);
Read(f, n);
read(f, r);
Read(f, x1, y1);
x3:=x1;
y3:=y1;
per:=0;
for i:=0 to n-2 do begin
Read(f, x2, y2);
per:=per + Sqrt(Sqr(x2-x1)+Sqr(y2-y1));
x1:=x2; y1:=y2;
end;
per:=per+Sqrt(Sqr(x1-x3)+Sqr(y1-y3)+Sqr(x2-x1)+Sqr(y2-y1));
per:=per+((2*Pi*r)/4)*n;
Close(f);
Rewrite(f, 'output.txt');
write(f, per:0:2);
Close(f);
end.

5
Pascal/08.12.16/input.txt Normal file
View File

@@ -0,0 +1,5 @@
4 1
0.0 0.0
2.0 0.0
2.0 2.0
0.0 2.0

1
Pascal/08.12.16/output.txt Normal file
View File

@@ -0,0 +1 @@
14.28

9
Pascal/10.10.16/Program1.pas Normal file
View File

@@ -0,0 +1,9 @@
var
x,y:real;
begin
Read(x,y);
if (y <=2-x*x) and ((y>=x) or (y>=0)) then
print('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
Print('<27><><EFBFBD>')
end.

9
Pascal/10.10.16/Program2.pas Normal file
View File

@@ -0,0 +1,9 @@
var
x,y:real;
begin
Read(x,y);
if (y<=1) and (y>=0) and (x<=Pi/2) and (y>=Sin(x)) then
print('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
Print('<27><><EFBFBD>')
end.

9
Pascal/10.10.16/Program3.pas Normal file
View File

@@ -0,0 +1,9 @@
var
x,y:real;
begin
Read(x,y);
if (y<=0.5) and (y>=0) and (y<=Sin(x)) and (x>=0) and (x<=Pi) then
print('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
Print('<27><><EFBFBD>')
end.

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

@@ -0,0 +1,9 @@
var
x,y:real;
begin
Read(x,y);
if (y<=x+2) and (y<=x-2) and (y<=2) and (y>=0) and (y<=sqr(x)) then
print('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
Print('<27><><EFBFBD>')
end.

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

@@ -0,0 +1,9 @@
var
x,y:real;
begin
Read(x,y);
if (y<=1) and (x>=0) and (y>=-1) and ((y>=x-1) or (1<=Sqr(x)+Sqr(y))) then
print('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
Print('<27><><EFBFBD>')
end.

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

@@ -0,0 +1,9 @@
var
x,y:real;
begin
Read(x,y);
if ((y<=0) or (y>=x+1)) and (y<=3-Sqr(x)) then
print('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
Print('<27><><EFBFBD>')
end.

BIN
Pascal/10.10.16/ege24-C1.doc Normal file
View File

Binary file not shown.

BIN
Pascal/10.10.16/Ветвление-3-изЕГЭ.doc Normal file
View File

Binary file not shown.

14
Pascal/13.10.16/Program1.pas Normal file
View File

@@ -0,0 +1,14 @@
var
a, b, x: real;
begin
readln(a, b, x);
if a = 0 then
write('<27><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
begin
if b = 0 then
write('x = 0')
else write('x =', b / a, ' <20><><EFBFBD> x =', -b / a);
end
end.

17
Pascal/24.10.16/Program1.pas Normal file
View File

@@ -0,0 +1,17 @@
var
m, n, i, j: integer;
begin
Read(m, n);
for j := m to n do
begin
writeln();
write(j, ':= ');
for i := 2 to m - 1 do
begin
if j mod i = 0 then
write(i, ' ');
end;
end;
end.

25
Pascal/24.10.16/Program2.pas Normal file
View File

@@ -0,0 +1,25 @@
var
a, b, c, n, i,j: int64;
gg: boolean;
begin
gg := false;
j:=0;
read(n);
a := 1;
b := 1;
for i := 1 to ((n*n)-1) do
begin
c := a + b;
a := b;
b := c;
j:=j+1;
if c mod n = 0 then
begin
gg := true;
break;
end;
end;
if gg then write('true ',j) else write('false ',j);
end.

1
Pascal/24.10.16/Program3.pas Normal file
View File

@@ -0,0 +1 @@
var x, y: real; begin x := -5; while x <= 5 do begin y := 5 - (Sqr(x) / 2); writeln(x, ' ', y); x := x + 0.5; end; end.

13
Pascal/27.10.16/Program4.pas Normal file
View File

@@ -0,0 +1,13 @@
var
even, odd, num: integer;
begin
Readln(num);
while num > 0 do
begin
if num mod 2 = 0 then even := even + 1
else odd := odd + 1;
num := num div 10;
end;
writeln('odd ' , odd , ' even ' , even);
end.

14
Pascal/27.10.16/Program5.pas Normal file
View File

@@ -0,0 +1,14 @@
var
n, m, a: integer;
begin
Readln(n);
while n > 0 do
begin
a := n mod 10;
n := n div 10;
m := m * 10 + a;
end;
write(m);
end.

16
Pascal/27.10.16/Program6.pas Normal file
View File

@@ -0,0 +1,16 @@
var
a, b, n, diff: integer;
begin
Readln(a);
diff := a;
while a > 0 do
begin
a := a div 10;
n := n + 1;
end;
a := diff;
diff := 5 - n;
if diff > 0 then begin
end.

23
Pascal/29.02.16/Program1.pas Normal file
View File

@@ -0,0 +1,23 @@
var
f: string;
t: string;
sh: int64;
n: int64;
hh: array [1..99] of int64;
begin
Assign(input, 'INPUT.TXT');
Readln(n);
for i: int64 := 1 to n+1 do
begin
hh[i]:=0;
end;
for i: int64 := 1 to n do
begin
Readln(f);
t := Copy(f, f.Length - 1, 2);
sh:=StrToInt64(t);
hh[sh]:=+1;
end;
Print('done');
end.

6
Pascal/29.02.16/input.txt Normal file
View File

@@ -0,0 +1,6 @@
5
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. 57
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. 84
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. 45
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. 54
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. 58

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.

14
Pascal/mass/Program1.pas Normal file
View File

@@ -0,0 +1,14 @@
var i:integer;
var A:array[1..10] of integer;
begin
Randomize;
for i:=1 to 10 do begin
A[i]:=Random(9);
write(A[i]);
end;
writeln;
for i:=1 to 10 do begin
if A[i] mod 2=0 then
write(A[i]);
end;
end.

14
Pascal/mass/Program2.pas Normal file
View File

@@ -0,0 +1,14 @@
var i:integer;
var A:array[1..20] of integer;
begin
Randomize;
for i:=1 to 20 do begin
A[i]:=Random(18)-9;
write(A[i], ' ');
end;
writeln;
for i:=1 to 20 do begin
if A[i] <0 then
write(A[i]);
end;
end.

34
Pascal/mass/Program4.pas Normal file
View File

@@ -0,0 +1,34 @@
var
a:array [1..10, 1..20] of integer;
i,j:integer;
sum:array [1..10] of integer;
max:integer;
begin
for i:=1 to 10 do begin
for j:=1 to 20 do begin
a[i,j]:=Random(10);
write(a[i,j], ' ');
end;
writeln;
end;
writeln;
for i:=1 to 10 do begin
sum[i]:=0;
end;
for i:=1 to 10 do begin
for j:=1 to 20 do begin
sum[i]:=sum[i] + a[i,j];
end;
end;
for i:=1 to 10 do begin
write(sum[i], ' ' );
end;
writeln;
max:=1;
for i:=1 to 10 do begin
if sum[i]<sum[max] then begin
max:=i;
end;
end;
write(max, ' ' , sum[max]);
end.

23
Pascal/mass/Program7.pas Normal file
View File

@@ -0,0 +1,23 @@
const
N = 30;
var
A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
for i := 1 to N do A[i] := Random(100);
for i := 1 to N do if A[i] < 20 then A[i] := -1;
x := 0;
y := 0;
for i := 1 to N do
begin
if A[i] <> -1 then begin
x := x + A[i];
y := y + 1;
end;
end;
s := x / y;
write(s);
end.

22
Pascal/mass/Program8.pas Normal file
View File

@@ -0,0 +1,22 @@
const
N = 30;
var
A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
for i := 1 to N do A[i] := Random(40) + 160;
for i := 1 to N do if A[i] < 180 then A[i] := -1;
x := 200;
for i := 1 to N do
begin
if A[i] <> -1 then begin
if A[i] < x then begin
x := A[i];
end;
end;
end;
write(x);
end.

8
Pascal/mass/Program9.pas Normal file
View File

@@ -0,0 +1,8 @@
const N = 31;
var A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
for i:=1 to N do Random(40) - 20;
end.

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.

11
Pascal/wiles/Program1.pas Normal file
View File

@@ -0,0 +1,11 @@
var m,i:integer;
begin
for m:=5 to 30 do begin
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ',m,':');
for i:=2 to m-1 do begin
if m mod i = 0 then
write(i, ' ');
end;
writeln();
end;
end.

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

@@ -0,0 +1,8 @@
var n,i:integer;
begin
n:=1;
for n to n*n-1 do begin
if i mod n = 0;
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!!! ',i);
end.

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

@@ -0,0 +1,8 @@
var a,b:integer;
begin
write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>: ');
readln(a,b);
for a:=a to b do
write(sqr(a),' ');
a:=a+1;
end.

11
Pascal/wiles/Program4.pas Normal file
View File

@@ -0,0 +1,11 @@
var n,m,a:integer;
begin
write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>: ');
readln(n);
while n>0 do begin
a:=n mod 10;
n:=n div 10;
m:=m*10+a;
end;
write('<27><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - ', m);
end.

16
Pascal/wiles/Program5.pas Normal file
View File

@@ -0,0 +1,16 @@
var even,odd,a:integer;
begin
write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>: ');
readln(a);
while a>0 do begin
if a mod 2=0 then begin
even:=even+1;
end
else begin
odd:=odd+1;
end;
a:=a div 10;
end;
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - ', even);
write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - ', odd);
end.

8
Pascal/wiles/Program6.pas Normal file
View File

@@ -0,0 +1,8 @@
var x,y:integer;
begin
Writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> y=5-x*x/2');
for x:=-5 to 5 do begin
y:=5-sqr(x) div 2;
writeln('x=',x,' ','y=',y);
end;
end.

17
Pascal/wiles/Program7.pas Normal file
View File

@@ -0,0 +1,17 @@
var a,b,n,diff:integer;
begin
Readln(a);
b:=a;
while a <> 0 do begin
n:=n+1;
b:=b div 10;
end;
writeln(n);
end.
________
/ ___ |
/ / | |
/ / |
|
/ / | |
/ _/ |_|

41
Pascal/системы счисления/bin.pas Normal file
View File

@@ -0,0 +1,41 @@
procedure dec2bin(N: integer);
begin
if N >= 2 then
dec2bin(N div 2);
Write(N mod 2);
end;
function step(x:integer):integer;
var i:integer; st:integer;
begin
if x=0 then step:=1 else begin
st:=1;
for i:=1 to x do begin
st:=st*2;
step:=st;
end; end;
end;
var k,a,b,d,s:integer;
begin
s:=0;
k:=0;
writeln('Выберите режим 1:bin2dec 2:dec2bin');
readln(a);
if a=1 then begin
writeln('Выбран режим bin2dec. Введите число');
readln(a);
repeat
b:=a mod 10;
d:=a div 10;
s:=s+b*step(k);
k:=k+1;
a:=d;
until d=0;
writeln(s);
end else begin
writeln('Выбран режим dec2bin. Введите число');
readln(a);
dec2bin(a);
end;
end.

22
Pascal/три задачи/1.pas Normal file
View File

@@ -0,0 +1,22 @@
var
i, next, j, off, n: int64;
s: array[0..50] of integer;
mas: array[0..9] of integer;
begin
readln(n);
for i := 0 to n-1 do readln(s[i]);
println(s);
next := 0;
off:=0;
if s[0] = 0 then begin next := 1; off:=1 end;
for i := off to n do
begin
for j := 1 to s[i] do
begin
print(next);
end;
if next = 0 then begin next := 1; end
else next := 0;
end;
end.

14
Pascal/три задачи/2.pas Normal file
View File

@@ -0,0 +1,14 @@
var
i, j, b:integer;
mas:array[0..9] of integer;
begin
for i:=0 to 9 do mas[i]:=Random(5);
println(mas);
for i:=0 to 9 do begin
for j:=i+1 to 8 do begin
if mas[j] = mas[i] then b:=1;
end;
end;
if b=1 then print('yes') else print('no');
end.