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

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.
________
/ ___ |
/ / | |
/ / |
|
/ / | |
/ _/ |_|