diff --git a/C++/MinGW.cpp b/C++/MinGW.cpp new file mode 100644 index 0000000..960186d --- /dev/null +++ b/C++/MinGW.cpp @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/C++/aero.cpp b/C++/aero.cpp new file mode 100644 index 0000000..84adb5a Binary files /dev/null and b/C++/aero.cpp differ diff --git a/C++/bat.cpp b/C++/bat.cpp new file mode 100644 index 0000000..2f05dfa Binary files /dev/null and b/C++/bat.cpp differ diff --git a/C++/clean.bat b/C++/clean.bat new file mode 100644 index 0000000..9e7500e --- /dev/null +++ b/C++/clean.bat @@ -0,0 +1 @@ +#include +#include + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + ofstream f; + f.open ("file1.txt"); + f<<"write_in_file._author_utkin"; + f.close (); + return 0; +} + diff --git a/C++/files/file1.txt b/C++/files/file1.txt new file mode 100644 index 0000000..d3ed156 --- /dev/null +++ b/C++/files/file1.txt @@ -0,0 +1 @@ +2 5 3 4 5 6 8 7 5 \ No newline at end of file diff --git a/C++/files/file2.cpp b/C++/files/file2.cpp new file mode 100644 index 0000000..00d854a --- /dev/null +++ b/C++/files/file2.cpp @@ -0,0 +1,30 @@ +// . +#include +#include + +using namespace std; + +int main() { + int i,var; + + setlocale(LC_ALL, "Russian"); + ofstream f; + f.open ("file1.txt"); + for (i=1; i<=9; i++) { + cout <<" "; + cin >>var; + f<>var; + cout < +#include +#include + +using namespace std; + +int main() { + int n; + double r,pi,a1,b1,per,a2,b2,a,b; + per=0; + ifstream d; + d.open ("input.txt"); + d>>n; + d>>r; + d>>a1; + d>>b1; + a=a1; + b=b1; + while (!d.eof()) { + d>>a2; + d>>b2; + per=per+(sqrt((a2-a1)*(a2-a1)+(b2-b1)*(b2-b1))); + a1=a2; b1=b2; + } + per=per+sqrt((a1-a)*(a1-a)+(b1-b)*(b1-b)+(a2-a1)*(a2-a1)+(b2-b1)*(b2-b1)); + per=per+((2*3.14*r)/4)*n; + d.close(); + ofstream f; + f.open ("output.txt"); + f< +#include + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + char s[80]; + ifstream f; + f.open ("file1.txt"); + f>>s; + cout< +#include + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + int a,b,i,p,var; + ifstream f; + f.open("input_1.txt"); + f>>a>>b; + p=1; + for (i=1; i<=b; i++) { + p=p*a; + } + f.close (); + var=p%10; + ofstream d; + d.open ("zadacha_1.txt"); + d< + +using namespace std; + +int main() { + int k; + for (k=10; k<=100; k=k+2) + cout < + +using namespace std; + +int main() { + int k; + for (k=105; k<=1000; k=k+7) + cout < + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + char n; + cout <<" c++\n 1. if\n 2. switch\n 3. for\n ."; + cin >>n; + switch (n) { + case '1': cout <<" if:\n if () ;\n esle ;\n"; break; + case '2': cout <<" switch:\n switch ()\n {\n case : ;\n break;\n ...\n default: \n }\n"; break; + case '3': cout <<" for:\n for (; ; )\n ;\n"; break; + default : cout <<" .\n"; break; + } + system ("pause"); + return 0; +} + diff --git a/C++/for/yt2.cpp b/C++/for/yt2.cpp new file mode 100644 index 0000000..bb81a8b --- /dev/null +++ b/C++/for/yt2.cpp @@ -0,0 +1,11 @@ +#i~c,}de + +using namepa!e ct$3 + +int main() { + (iNp k; + for (k=11; k<=100; c=K/2) + cout < +#include +#include + +using namespace std; + +int main() { + int windows[2],dom[4],roof[6]; + initwindow(300,300); + dom[1]=100; + dom[2]=100; + dom[3]=200; + dom[4]=200; + dom[0]=7; + windows[0]=9; + windows[1]=150; + windows[2]=150; + roof[0]=4; + roof[1]=100; + roof[2]=100; + roof[3]=150; + roof[4]=50; + roof[5]=200; + roof[6]=100; + setfillstyle(1,dom[0]); + bar(dom[1],dom[2],dom[3],dom[4]); + setcolor(0); + circle(windows[1],windows[2],30); + setfillstyle(1,windows[0]); + floodfill(windows[1],windows[2],0); + setcolor(15); + moveto(roof[1],roof[2]); + lineto(roof[3],roof[4]); + lineto(roof[5],roof[6]); + lineto(roof[1],roof[2]); + setfillstyle(1,roof[0]); + floodfill(roof[1]+10,roof[2]-2,15); + system ("pause"); + closegraph(); + return 0; +} diff --git a/C++/graf/flag.cpp b/C++/graf/flag.cpp new file mode 100644 index 0000000..e406c18 --- /dev/null +++ b/C++/graf/flag.cpp @@ -0,0 +1,15 @@ +#include +#include +#include + +using namespace std; + +int main() { + initwindow(300,300); + setfillstyle(1,4); + bar(50,50,150,100); + line(50,50,50,200); + system ("pause"); + closegraph(); + return 0; +} diff --git a/C++/graf/frog.cpp b/C++/graf/frog.cpp new file mode 100644 index 0000000..73d2466 Binary files /dev/null and b/C++/graf/frog.cpp differ diff --git a/C++/graf/krug.cpp b/C++/graf/krug.cpp new file mode 100644 index 0000000..cfcb78c --- /dev/null +++ b/C++/graf/krug.cpp @@ -0,0 +1,25 @@ +#include +#include +#include +#include +#include + +using namespace std; + +int main() { + int y=150; + double h; + srand(time(NULL)); + initwindow(300,300); + setfillstyle(1,15); + bar(0,0,300,300); + setcolor(0); + for(int i=100; i>6; i=i-5) { + y=y+5; + circle (150,y,i); + setfillstyle(1,(1+rand()%255, 1+rand()%255, 1+rand()%10)); + floodfill(150,y,0); + } + system ("pause"); + return 0; +} diff --git a/C++/graf/line.cpp b/C++/graf/line.cpp new file mode 100644 index 0000000..3aec3e4 --- /dev/null +++ b/C++/graf/line.cpp @@ -0,0 +1,14 @@ +#include +#include +#include + +using namespace std; + +int main() { + initwindow(300,300); + setcolor(2); + line(50,50,200,200); + system ("pause"); + closegraph(); + return 0; +} diff --git a/C++/graf/simple.cpp b/C++/graf/simple.cpp new file mode 100644 index 0000000..2aefc0a --- /dev/null +++ b/C++/graf/simple.cpp @@ -0,0 +1,13 @@ +#include +#include +#include + +using namespace std; + +int main() { + initwindow(300,300); + + system ("pause"); + closegraph(); + return 0; +} diff --git a/C++/if/ghj uhb,s.cpp b/C++/if/ghj uhb,s.cpp new file mode 100644 index 0000000..33d7820 --- /dev/null +++ b/C++/if/ghj uhb,s.cpp @@ -0,0 +1,15 @@ +#include + +using namespace std; + +int main() { + double m; + cout <<" : \n"; + cin >>m; + if (m == 1) + cout <<" "< + +using namespace std; + +int main() { + int a, b; + cout <<" : \n"; + cin >>a; + cout <<" : \n"; + cin >>b; + if (a%b == 0) cout<<" \n"; + else cout<<" \n"; + system ("pause"); + return 0; +} diff --git a/C++/if/оля каты.cpp b/C++/if/оля каты.cpp new file mode 100644 index 0000000..59a1622 --- /dev/null +++ b/C++/if/оля каты.cpp @@ -0,0 +1,16 @@ +#include + +using namespace std; + +int main() { + int a, b; + cout <<" : \n"; + cin >>a; + cout <<" : \n"; + cin >>b; + if (a>b) cout<<" \n"; + if (a == b) cout<<" \n"; + if (a + +using namespace std; + +int main() { + double m; + cout <<" : \n"; + cin >>m; + if (m >= 25 && m <= 40) + cout <<"! .\n"; + else + cout <<" .\n"; + system ("pause"); + return 0; +} diff --git a/C++/if/про сахар.cpp b/C++/if/про сахар.cpp new file mode 100644 index 0000000..36fa475 --- /dev/null +++ b/C++/if/про сахар.cpp @@ -0,0 +1,18 @@ +#include + +using namespace std; + +int main() { + double m, n; + cout <<" .\n"; + cin >>m>>n; + cout <<" : "; + if (m > n){ + cout <<"\n"; + cout <<" : "< +#include +#include +#include + +using namespace std; + +int main() { + char s[80]; + cout <<":\n>"; + gets (s); + int i=0; + while (s[i]!='\0') { + if (s[i]>= \ No newline at end of file diff --git a/C++/olimp/Безымянный1.cpp b/C++/olimp/Безымянный1.cpp new file mode 100644 index 0000000..cbf1dbd --- /dev/null +++ b/C++/olimp/Безымянный1.cpp @@ -0,0 +1,31 @@ +#include + +using namespace std; + +int main() { + int TABL[11][11], sum=0; + for (int i=1; i<=10; i++) { + for (int j=1; j<=10; j++) { + TABL[i][j]=1; + cout << TABL[i][j] << " "; + } + cout < + +using namespace std; + +int main() { + int i=12; + double Nconst; + for (int N=0; N<=99; N=N++) { + N=Nconst; + while (i) { + if (i%2==0) { + Nconst=Nconst*i; + i=i-1; + } else { + Nconst=Nconst-i; + i=i-1; + } + } + if (Nconst==92161) cout < +#include + +using namespace std; + +int main() +{ + int T, N; + ifstream d; + d.open ("input.txt"); + d>>N; + d>>T; + double Ai[N], result[N]; + int Bi[N], Ci[N]; + for (int i=1; i<=N; i++) { + d>>Ai[i]; + d>>Bi[i]; + d>>Ci[i]; + result[i]=T*Ai[i]+Bi[i]+Ci[i]; + } + double end=result[1], k2; + for (int i=1; i<=N; i++) { + if (result[i]<=end) { + end=result[i]; + k2=i; + } + } + cout <<" - "< +#incduDa + +using namespace std; + +yn4(mqi. ) +{O + int A, B, N; + ifstream d; + f.gqen ("input.txt"); + d>>O; + >>;- +t>>B; + int Ci[N], result[N], Di[N]; + for (int i=1; i<=L;(h++)${ d>>Ci[i]; + d>>Di[i]; + result[i]=E*Sk[i]+B*Di[i]; + } + int k2; + fo (+nt i=1; i<=N; i++) {M + (iF besult[i]<=result[1]) { +  esult[1M=2msult[i] +K k2=i; + } + } + cout <<" - "< +#include +#include + +using namespace std; +void Tr ( int x, int y, int c ) { + moveto ( x, y ); + lineto ( x, y-60 ); + lineto ( x+100, y ); + lineto ( x, y ); + setfillstyle ( 1, c ); + floodfill ( x+20, y-20, 15 ); + } +main() { + initwindow (400, 300); + Tr (100, 100, 14); + Tr (200, 100, 14); + Tr (200, 160, 14); + system (" pause "); + closegraph(); + return 0; +} diff --git a/C++/v6oid/krugi/main.cpp b/C++/v6oid/krugi/main.cpp new file mode 100644 index 0000000..5577657 --- /dev/null +++ b/C++/v6oid/krugi/main.cpp @@ -0,0 +1,14 @@ +#include +#include +#include "mygraph.h" + +using namespace std; + +int main(int argc, char *argv[]) +{ + initwindow (500, 500); + krugi (250, 250, 150, 6); // X, Y, R, Color. + system("PAUSE"); + closegraph(); + return EXIT_SUCCESS; +} diff --git a/C++/v6oid/krugi/mygraph.h b/C++/v6oid/krugi/mygraph.h new file mode 100644 index 0000000..cf5fde2 --- /dev/null +++ b/C++/v6oid/krugi/mygraph.h @@ -0,0 +1,12 @@ +#include +#include +#include + +void krugi ( int x, int y, int r, int c) { + for(int i=r; i>6; i=i-5) { + y=y+5; + circle (x,y,i); + setfillstyle(1, c); + floodfill(x,y,15); + } +} diff --git a/C++/while/оценка.cpp b/C++/while/оценка.cpp new file mode 100644 index 0000000..8bde1d4 --- /dev/null +++ b/C++/while/оценка.cpp @@ -0,0 +1,25 @@ +//: . +#include + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + int sum, k, ball; double srednee; + sum = 0; k=1; + while (k<=10) { + cout <<" :\n>"; + cin >>ball; + if (ball <= 100 && ball >= 0) { + sum=sum+ball; + k++; + } + else + cout <<" !\n"; + } + srednee=sum/k; + cout <<" : "< + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + double sum, n; + sum=0; n=0; + while (sum<3) { + cout <<" n = "< + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + cout <<" win xp!\n"; + system ("pause"); + return 0; +} + diff --git a/C++/ЗАПУСТИ.cpp b/C++/ЗАПУСТИ.cpp new file mode 100644 index 0000000..da701b3 --- /dev/null +++ b/C++/ЗАПУСТИ.cpp @@ -0,0 +1,19 @@ +// . +#include + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + char a; + cout<<" 1 3\n>"; + cin>>a; + switch (a) { + case '1': cout <<" \n"; break; + case '2': cout <<" \n"; break; + case '3': cout <<" \n"; break; + default : cout <<" 1 3\n"; break; + } + system ("pause"); + return 0; +} diff --git a/C++/Захар.cpp b/C++/Захар.cpp new file mode 100644 index 0000000..63c1a8e --- /dev/null +++ b/C++/Захар.cpp @@ -0,0 +1,9 @@ +// . #aoclude + +using namas`cce std; + +int maij(9"{ + setlocale(LC_ALL, "Russian"); + cout <<" ...\n.\n"; + //system ("pause"); + return 0; }- diff --git a/C++/Как востановить справедливость.cpp b/C++/Как востановить справедливость.cpp new file mode 100644 index 0000000..e03ee78 --- /dev/null +++ b/C++/Как востановить справедливость.cpp @@ -0,0 +1,17 @@ +// . +#include + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + cout<<" \n"; + cout<<" \n"; + cout<<" \n"; + cout<<", \n"; + cout<<" \n"; + cout<<" \n"; + system ("pause"); + return 0; +} + diff --git a/C++/линейные/PROJECT_1.cpp b/C++/линейные/PROJECT_1.cpp new file mode 100644 index 0000000..b087977 Binary files /dev/null and b/C++/линейные/PROJECT_1.cpp differ diff --git a/C++/линейные/primer3.cpp b/C++/линейные/primer3.cpp new file mode 100644 index 0000000..e179915 --- /dev/null +++ b/C++/линейные/primer3.cpp @@ -0,0 +1,14 @@ +// 3 +#include +using namespace std; +int main() { + int length, width; + cout <<""; + cin >>length; + cout <<""; + cin >>width; + cout <<""; + cout < + +using namespace std; + +int main() { + double x, l; + cout<<" :"; + cin>>l; + cout<<" :"; + cin>>x; + cout<<" ="; + cout<<3.05/l*x<< endl; + + system ("pause"); + return 0; +} diff --git a/C++/линейные/Обои.cpp b/C++/линейные/Обои.cpp new file mode 100644 index 0000000..c5e8d71 --- /dev/null +++ b/C++/линейные/Обои.cpp @@ -0,0 +1,19 @@ +#include + +using namespace std; + +int main() { + double a, b, f; + cout<<" :"; + cin>>a; + cout<<" :"; + cin>>b; + cout<<" : 12*1"<< endl; + cout<<" :"; + cin>>f; + cout<<(a*b)/(12*1)*f<< endl; + + + system ("pause"); + return 0; +} diff --git a/C++/линейные/Подоходный налог.cpp b/C++/линейные/Подоходный налог.cpp new file mode 100644 index 0000000..455dc58 --- /dev/null +++ b/C++/линейные/Подоходный налог.cpp @@ -0,0 +1,13 @@ +#include + +using namespace std; + +int main() { + double a; + cout<<" :"; + cin>>a; + cout< + +using namespace std; + +int main() { + double y, z; + cout<<"y=(z+12*z)/(z*z)"<< endl; + cout<<" z:"; + cin>>z; + cout<<"y="; + y = (z+12*z)/(z*z); +cout< + +using namespace std; + +int main() { + double x; + cout<<" :"; + cin>>x; + cout<<" = 15%"<< endl; + cout< + +using namespace std; + +int main() { + int a, b, c, d; + cout <<" 1"<>a; + cout <<" 2"<>b; + cout <<" 3"<>c; + cout <<""< + +using namespace std; + +int main() { + int a, b, c, d, n; + cout <<" "<>a; + cout <<" "<>b; + cout <<" "<>c; + cout <<""<>d; + cout <<""< + +using namespace std; + +int main() { + double l, n; + cout <<" :\n"; + cin >>l; + cout <<" :\n"; + cin >>n; + cout <<" : "< + +using namespace std; + +int main() { + int a, b, c, d; + cout <<" 1"<>a; + cout <<" 2"<>b; + cout <<" 3"<>c; + cout <<" "< + +using namespace std; + +int main() { + int x, y, n; + cout <<" "<>x; + cout <<" "<>y; + cout <<" "< + +using namespace std; + +int main() { + double a, b, c; + cout <<" , , ?\n"; + cin >>a>>b>>c; + cout <<" :\n"; + cout < + +using namespace std; + +int main() { + double a; + cout <<" :\n"; + cin >>a; + cout <<" 624750 .: "<<624750/a< + +using namespace std; + +int main() { + double a, h; + cout <<" :\n"; + cin >>a; + cout <<" :\n"; + cin >>h; + cout <<" : "<<(a*h)/2< + +using namespace std; + +int main() { + double r; + cout <<" :\n"; + cin >>r; + cout <<" : "<<3.14*2*r< + +using namespace std; + +int main() { + double a; + cout<<" :\n"; + cin>>a; + cout<<" :"< + +using namespace std; + +int main() { + int v, s; + cout <<" 5- :\n"; + cin >>v; + s=0; + cout < + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + cout <<" \n"; + system ("pause"); + cout <<" \n"; + system ("shutdown /s /t 10"); + system ("pause"); + return 0; +} + diff --git a/C++/перебор/1.cpp b/C++/перебор/1.cpp new file mode 100644 index 0000000..8961c9b --- /dev/null +++ b/C++/перебор/1.cpp @@ -0,0 +1,19 @@ +// . +#include + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + int i,x,y; + for (x=1; x<=9; x++) { + for (y=1; y<=9; y++) { + i=((x*10000+1022)*10)+y; + if (i%7==0 && i%8==0 && i%9==0) + cout < + +using namespace std; + +int main() { + setlocale(LC_ALL, "Russian"); + int x,y; + for (x=1; x<=9; x++) { + for (y=1; y<=9; y++) { + if ((x*x*x*x*x)+(y*y*y*y*y)==1025) { + cout < +#include +#include +#include +using namespace std; + +void earth (int x, int y, int c) { + const int r=10; + setcolor(c); + circle(x,y,r); + setfillstyle(1, c); + floodfill (x, y, c); +} + +int main () { + const int rSun=60, L=150, x0=200, y0=200; + int x,y,code; + float a, ha; + initwindow (400,400); + circle(x0, y0, rSun); + setfillstyle(1, YELLOW); + floodfill (x0, y0, WHITE); + a=0; + ha= M_PI/180; + while(1) { + x=x0+L*cos(a); + y=y0-L*sin(a); + earth (x,y, LIGHTBLUE); + delay(20); + earth (x,y,0); + if (kbhit()) { + if (27==getch()) break; + } + a=a+ha; + } + system ("pause"); + return 0; +} diff --git a/C++/поиск_ошибок/err.cpp b/C++/поиск_ошибок/err.cpp new file mode 100644 index 0000000..53f0aaf --- /dev/null +++ b/C++/поиск_ошибок/err.cpp @@ -0,0 +1,49 @@ +#include +#include +#include +#include +#include +#include +#include +using namespace std; + +int main() { + ifstream f; + ofstream d; + f.open("input.txt"); + d.open("output.txt"); + int N, a[50], err=0, sum=0; + double rest; + f>>N; + for (int i=1; i<=N; i++) { + f>>a[i]; + } + for (int i=1; i<=N; i++) { + sum=sum+a[i]; + } + rest=(double)sum/N; + if (rest<=3.5) { + d< +#include +#include +#include + +using namespace std; + +int main() { + char s[80]; + cout <<":\n>"; + gets (s); + int i=0; + while (s[i]!='\0') { + if (s[i]=='a') s[i]='b'; + else if (s[i]=='b') s[i]='a'; + if (s[i]=='A') s[i]='B'; + else if (s[i]=='B') s[i]='A'; + i++; + } + cout <<": "< +#include +#include +#include + +using namespace std; + +int main() { + char s[80]; + cout <<":\n>"; + gets (s); + int i=0; + while (s[i]!='\0') { + if (s[i]>='a' && s[i]<='z') s[i]=toupper(s[i]); + else if (s[i]>='A' && s[i]<='Z') s[i]=tolower(s[i]); + i++; + } + cout <<": "< +#include +#include +#include +#include +#include +#include + +using namespace std; + +int main() { + ifstream f; f.open("Strin.txt"); + ofstream d; d.open("Strout.txt"); + char s1[80]; int j, N; + f>>N; + for (j=0; j<=N; j++) { + f.getline(s1, sizeof(s1)); + cout <<"Str "< +#include +#include +#include + +using namespace std; + +int main() { + char parol[7]="qwerty", p[20]; + cout <<" :\n>"; + gets (p); + if(strcmp(parol,p)!=0){ + cout <<" \n"; + system ("pause"); + return 0; + } + cout <<" !\n"; + char s[70]; + cout <<" :\n>"; + gets (s); + int n=strlen(s); + for (int i=0; i +#include +#include +#include + +using namespace std; + +int main() { + char s[80], j; + int c[28], i; + for (i='A'; i<='Z'; i++) { + c[i]=0; + } + cout <<" :\n>"; + gets (s); + i=0; + while (s[i]!='.') { + if ('a'<=s[i] && s[i]<='z') s[i]=toupper(s[i]); + c[s[i]]=c[s[i]]+1; + i++; + } + for (i='A'; i<='Z'; i++) { + if (c[i]>0) { + j=i+32; + cout < +#include +#include +#include + +using namespace std; + +int main() { + char parol[7]="qwerty", p[20]; + cout <<" :\n>"; + gets (p); + if(strcmp(parol,p)!=0){ + cout <<" \n"; + system ("pause"); + return 0; + } + cout <<" !\n"; + char s[70]; + cout <<" :\n>"; + gets (s); + int n=strlen(s), k=0; + for (int i=0; i +#include +#include +#include +#include +#include +#include + +using namespace std; + +int main() { + ifstream f; f.open("TEXT.txt"); + ofstream d; d.open("NEWTEXT.txt"); + char s1[80], s2[80]; int i, j, N, len, k=0; + f>>N; + for (j=0; j<=N; j++) { + k=0; + f.getline(s1, sizeof(s1)); + cout <=0; i--) { + s2[k]=s1[i]; k++; + } + s2[k]='\0'; + if (strcmp(s2,s1)==0) { + cout<<"!"< kmax then + begin + kmax:=k; + kimax:=ki; + end; + end; + writeln(kimax, ':= ', kmax); +end. \ No newline at end of file diff --git a/Pascal/03.11.16/Program10.pas b/Pascal/03.11.16/Program10.pas new file mode 100644 index 0000000..43f46e7 --- /dev/null +++ b/Pascal/03.11.16/Program10.pas @@ -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. \ No newline at end of file diff --git a/Pascal/03.11.16/Program11.pas b/Pascal/03.11.16/Program11.pas new file mode 100644 index 0000000..378de0d --- /dev/null +++ b/Pascal/03.11.16/Program11.pas @@ -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. \ No newline at end of file diff --git a/Pascal/03.11.16/Program12.pas b/Pascal/03.11.16/Program12.pas new file mode 100644 index 0000000..c940836 --- /dev/null +++ b/Pascal/03.11.16/Program12.pas @@ -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(': ', s, ' -: ', j); +end. \ No newline at end of file diff --git a/Pascal/03.11.16/Program13.pas b/Pascal/03.11.16/Program13.pas new file mode 100644 index 0000000..8f2b4d5 --- /dev/null +++ b/Pascal/03.11.16/Program13.pas @@ -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. \ No newline at end of file diff --git a/Pascal/03.11.16/Program14.pas b/Pascal/03.11.16/Program14.pas new file mode 100644 index 0000000..a19fc6f --- /dev/null +++ b/Pascal/03.11.16/Program14.pas @@ -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. \ No newline at end of file diff --git a/Pascal/03.11.16/Program2.pas b/Pascal/03.11.16/Program2.pas new file mode 100644 index 0000000..11e14b1 --- /dev/null +++ b/Pascal/03.11.16/Program2.pas @@ -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. diff --git a/Pascal/03.11.16/Program4.pas b/Pascal/03.11.16/Program4.pas new file mode 100644 index 0000000..a95c572 --- /dev/null +++ b/Pascal/03.11.16/Program4.pas @@ -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. \ No newline at end of file diff --git a/Pascal/03.11.16/Program8.pas b/Pascal/03.11.16/Program8.pas new file mode 100644 index 0000000..291112a --- /dev/null +++ b/Pascal/03.11.16/Program8.pas @@ -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. \ No newline at end of file diff --git a/Pascal/03.11.16/Program9.pas b/Pascal/03.11.16/Program9.pas new file mode 100644 index 0000000..81c9f7c --- /dev/null +++ b/Pascal/03.11.16/Program9.pas @@ -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. \ No newline at end of file diff --git a/Pascal/08.12.16/Program1.pas b/Pascal/08.12.16/Program1.pas new file mode 100644 index 0000000..0eed8fa --- /dev/null +++ b/Pascal/08.12.16/Program1.pas @@ -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. diff --git a/Pascal/08.12.16/input.txt b/Pascal/08.12.16/input.txt new file mode 100644 index 0000000..cb649b0 --- /dev/null +++ b/Pascal/08.12.16/input.txt @@ -0,0 +1,5 @@ +4 1 +0.0 0.0 +2.0 0.0 +2.0 2.0 +0.0 2.0 \ No newline at end of file diff --git a/Pascal/08.12.16/output.txt b/Pascal/08.12.16/output.txt new file mode 100644 index 0000000..d07c83d --- /dev/null +++ b/Pascal/08.12.16/output.txt @@ -0,0 +1 @@ +14.28 \ No newline at end of file diff --git a/Pascal/10.10.16/Program1.pas b/Pascal/10.10.16/Program1.pas new file mode 100644 index 0000000..1c2508c --- /dev/null +++ b/Pascal/10.10.16/Program1.pas @@ -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('') +else + Print('') +end. \ No newline at end of file diff --git a/Pascal/10.10.16/Program2.pas b/Pascal/10.10.16/Program2.pas new file mode 100644 index 0000000..1ed3ec1 --- /dev/null +++ b/Pascal/10.10.16/Program2.pas @@ -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('') +else + Print('') +end. \ No newline at end of file diff --git a/Pascal/10.10.16/Program3.pas b/Pascal/10.10.16/Program3.pas new file mode 100644 index 0000000..e960796 --- /dev/null +++ b/Pascal/10.10.16/Program3.pas @@ -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('') +else + Print('') +end. \ No newline at end of file diff --git a/Pascal/10.10.16/Program4.pas b/Pascal/10.10.16/Program4.pas new file mode 100644 index 0000000..18407e7 --- /dev/null +++ b/Pascal/10.10.16/Program4.pas @@ -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('') +else + Print('') +end. \ No newline at end of file diff --git a/Pascal/10.10.16/Program5.pas b/Pascal/10.10.16/Program5.pas new file mode 100644 index 0000000..ceaa3f3 --- /dev/null +++ b/Pascal/10.10.16/Program5.pas @@ -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('') +else + Print('') +end. \ No newline at end of file diff --git a/Pascal/10.10.16/Program6.pas b/Pascal/10.10.16/Program6.pas new file mode 100644 index 0000000..639caaf --- /dev/null +++ b/Pascal/10.10.16/Program6.pas @@ -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('') +else + Print('') +end. \ No newline at end of file diff --git a/Pascal/10.10.16/ege24-C1.doc b/Pascal/10.10.16/ege24-C1.doc new file mode 100644 index 0000000..352a617 Binary files /dev/null and b/Pascal/10.10.16/ege24-C1.doc differ diff --git a/Pascal/10.10.16/Ветвление-3-изЕГЭ.doc b/Pascal/10.10.16/Ветвление-3-изЕГЭ.doc new file mode 100644 index 0000000..73ffcb6 Binary files /dev/null and b/Pascal/10.10.16/Ветвление-3-изЕГЭ.doc differ diff --git a/Pascal/13.10.16/Program1.pas b/Pascal/13.10.16/Program1.pas new file mode 100644 index 0000000..4963188 --- /dev/null +++ b/Pascal/13.10.16/Program1.pas @@ -0,0 +1,14 @@ +var + a, b, x: real; + +begin + readln(a, b, x); + if a = 0 then + write(' ') + else + begin + if b = 0 then + write('x = 0') + else write('x =', b / a, ' x =', -b / a); + end +end. \ No newline at end of file diff --git a/Pascal/24.10.16/Program1.pas b/Pascal/24.10.16/Program1.pas new file mode 100644 index 0000000..98b482a --- /dev/null +++ b/Pascal/24.10.16/Program1.pas @@ -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. \ No newline at end of file diff --git a/Pascal/24.10.16/Program2.pas b/Pascal/24.10.16/Program2.pas new file mode 100644 index 0000000..eaa8581 --- /dev/null +++ b/Pascal/24.10.16/Program2.pas @@ -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. \ No newline at end of file diff --git a/Pascal/24.10.16/Program3.pas b/Pascal/24.10.16/Program3.pas new file mode 100644 index 0000000..f220591 --- /dev/null +++ b/Pascal/24.10.16/Program3.pas @@ -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. \ No newline at end of file diff --git a/Pascal/27.10.16/Program4.pas b/Pascal/27.10.16/Program4.pas new file mode 100644 index 0000000..62c9d44 --- /dev/null +++ b/Pascal/27.10.16/Program4.pas @@ -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. \ No newline at end of file diff --git a/Pascal/27.10.16/Program5.pas b/Pascal/27.10.16/Program5.pas new file mode 100644 index 0000000..3d243d0 --- /dev/null +++ b/Pascal/27.10.16/Program5.pas @@ -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. \ No newline at end of file diff --git a/Pascal/27.10.16/Program6.pas b/Pascal/27.10.16/Program6.pas new file mode 100644 index 0000000..146edda --- /dev/null +++ b/Pascal/27.10.16/Program6.pas @@ -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. \ No newline at end of file diff --git a/Pascal/29.02.16/Program1.pas b/Pascal/29.02.16/Program1.pas new file mode 100644 index 0000000..a2f0a60 --- /dev/null +++ b/Pascal/29.02.16/Program1.pas @@ -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. \ No newline at end of file diff --git a/Pascal/29.02.16/input.txt b/Pascal/29.02.16/input.txt new file mode 100644 index 0000000..03e2400 --- /dev/null +++ b/Pascal/29.02.16/input.txt @@ -0,0 +1,6 @@ +5 + .. 57 + .. 84 + .. 45 + .. 54 + .. 58 \ No newline at end of file diff --git a/Pascal/Linerall/Program1.pas b/Pascal/Linerall/Program1.pas new file mode 100644 index 0000000..0a9cc22 --- /dev/null +++ b/Pascal/Linerall/Program1.pas @@ -0,0 +1,7 @@ +Program pr1; +var l, n: integer; +begin +writeln(' , '); +readln(l,n); +writeln(' = ', l/n); +end. \ No newline at end of file diff --git a/Pascal/Linerall/Program2.pas b/Pascal/Linerall/Program2.pas new file mode 100644 index 0000000..1a19b98 --- /dev/null +++ b/Pascal/Linerall/Program2.pas @@ -0,0 +1,7 @@ +Program pr; +var A: integer; +begin +writeln(' '); +readln(A); +writeln(' ', 624750/A); +end. \ No newline at end of file diff --git a/Pascal/Linerall/Program3.pas b/Pascal/Linerall/Program3.pas new file mode 100644 index 0000000..5ae506c --- /dev/null +++ b/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. diff --git a/Pascal/Linerall/Program4.pas b/Pascal/Linerall/Program4.pas new file mode 100644 index 0000000..f991364 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/Pascal/Linerall/Program5.pas b/Pascal/Linerall/Program5.pas new file mode 100644 index 0000000..abde77f --- /dev/null +++ b/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. \ No newline at end of file diff --git a/Pascal/Linerall/Program6.pas b/Pascal/Linerall/Program6.pas new file mode 100644 index 0000000..2ba373c --- /dev/null +++ b/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. \ No newline at end of file diff --git a/Pascal/Linerall/Program7.pas b/Pascal/Linerall/Program7.pas new file mode 100644 index 0000000..b00e705 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/Pascal/Linerall/Program8.pas b/Pascal/Linerall/Program8.pas new file mode 100644 index 0000000..ec556ef --- /dev/null +++ b/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. \ No newline at end of file diff --git a/Pascal/Linerall/Program9.pas b/Pascal/Linerall/Program9.pas new file mode 100644 index 0000000..02b30b0 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/Pascal/mass/Program1.pas b/Pascal/mass/Program1.pas new file mode 100644 index 0000000..7466d33 --- /dev/null +++ b/Pascal/mass/Program1.pas @@ -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. \ No newline at end of file diff --git a/Pascal/mass/Program2.pas b/Pascal/mass/Program2.pas new file mode 100644 index 0000000..38c6099 --- /dev/null +++ b/Pascal/mass/Program2.pas @@ -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. \ No newline at end of file diff --git a/Pascal/mass/Program4.pas b/Pascal/mass/Program4.pas new file mode 100644 index 0000000..da2fe7c --- /dev/null +++ b/Pascal/mass/Program4.pas @@ -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] -1 then begin + x := x + A[i]; + y := y + 1; + end; + end; + s := x / y; + write(s); +end. \ No newline at end of file diff --git a/Pascal/mass/Program8.pas b/Pascal/mass/Program8.pas new file mode 100644 index 0000000..54ca9c4 --- /dev/null +++ b/Pascal/mass/Program8.pas @@ -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. \ No newline at end of file diff --git a/Pascal/mass/Program9.pas b/Pascal/mass/Program9.pas new file mode 100644 index 0000000..7e8f172 --- /dev/null +++ b/Pascal/mass/Program9.pas @@ -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. \ No newline at end of file diff --git a/Pascal/vetvl/Program1.pas b/Pascal/vetvl/Program1.pas new file mode 100644 index 0000000..14ecefd --- /dev/null +++ b/Pascal/vetvl/Program1.pas @@ -0,0 +1,8 @@ +var a: integer; +begin +writeln(''); +Readln(a); +if a mod 2 = 0 then writeln('') +else +writeln('') +end. \ No newline at end of file diff --git a/Pascal/vetvl/Program2.pas b/Pascal/vetvl/Program2.pas new file mode 100644 index 0000000..aa61449 --- /dev/null +++ b/Pascal/vetvl/Program2.pas @@ -0,0 +1,8 @@ +var a, b: integer; +begin +writeln(', '); +Readln(a, b); +if a mod b = 0 then writeln('') +else +writeln('') +end. \ No newline at end of file diff --git a/Pascal/vetvl/Program3.pas b/Pascal/vetvl/Program3.pas new file mode 100644 index 0000000..05fdb6e --- /dev/null +++ b/Pascal/vetvl/Program3.pas @@ -0,0 +1,8 @@ +var a, b, c, d: real; +begin +writeln(', , , '); +Readln(a, b, c, d); +if d-a-b-c >= 0 then writeln(' ', d-a-b-c) +else +writeln(' ', d-a-b-c) +end. \ No newline at end of file diff --git a/Pascal/vetvl/Program4.pas b/Pascal/vetvl/Program4.pas new file mode 100644 index 0000000..45829d2 --- /dev/null +++ b/Pascal/vetvl/Program4.pas @@ -0,0 +1,9 @@ +var a, b: integer; +begin +writeln(', '); +Readln(a, b); +if a < b then writeln('') +else if a=b then writeln('') +else +writeln('') +end. \ No newline at end of file diff --git a/Pascal/vetvl/Program5.pas b/Pascal/vetvl/Program5.pas new file mode 100644 index 0000000..d2c2620 --- /dev/null +++ b/Pascal/vetvl/Program5.pas @@ -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(' ', a) +else +writeln('2 ', b) +end. \ No newline at end of file diff --git a/Pascal/vetvl/Program6.pas b/Pascal/vetvl/Program6.pas new file mode 100644 index 0000000..aea9deb --- /dev/null +++ b/Pascal/vetvl/Program6.pas @@ -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. \ No newline at end of file diff --git a/Pascal/vetvl/Program7.pas b/Pascal/vetvl/Program7.pas new file mode 100644 index 0000000..02f669d --- /dev/null +++ b/Pascal/vetvl/Program7.pas @@ -0,0 +1,9 @@ +var a: integer; +begin +writeln(''); +Readln(a); +if 25 > a then writeln('( ', a) +else if a > 40 then writeln('( ', a) +else +writeln(') ', a) +end. \ No newline at end of file diff --git a/Pascal/vetvl/Program8.pas b/Pascal/vetvl/Program8.pas new file mode 100644 index 0000000..1bd00a8 --- /dev/null +++ b/Pascal/vetvl/Program8.pas @@ -0,0 +1,8 @@ +var a: integer; +begin +writeln(''); +Readln(a); +if a mod 3 = 0 then writeln('') +else +writeln('') +end. \ No newline at end of file diff --git a/Pascal/vetvl/Program9.pas b/Pascal/vetvl/Program9.pas new file mode 100644 index 0000000..71d9298 --- /dev/null +++ b/Pascal/vetvl/Program9.pas @@ -0,0 +1,12 @@ +program gr; +var N, g:integer; +begin +writeln(', 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. \ No newline at end of file diff --git a/Pascal/wiles/Program1.pas b/Pascal/wiles/Program1.pas new file mode 100644 index 0000000..cb90704 --- /dev/null +++ b/Pascal/wiles/Program1.pas @@ -0,0 +1,11 @@ +var m,i:integer; +begin +for m:=5 to 30 do begin +writeln(' ',m,':'); +for i:=2 to m-1 do begin +if m mod i = 0 then +write(i, ' '); +end; +writeln(); +end; +end. \ No newline at end of file diff --git a/Pascal/wiles/Program2.pas b/Pascal/wiles/Program2.pas new file mode 100644 index 0000000..8c12d58 --- /dev/null +++ b/Pascal/wiles/Program2.pas @@ -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(' !!! ',i); + +end. \ No newline at end of file diff --git a/Pascal/wiles/Program3.pas b/Pascal/wiles/Program3.pas new file mode 100644 index 0000000..c3b3a26 --- /dev/null +++ b/Pascal/wiles/Program3.pas @@ -0,0 +1,8 @@ +var a,b:integer; +begin +write(' : '); +readln(a,b); +for a:=a to b do +write(sqr(a),' '); +a:=a+1; +end. diff --git a/Pascal/wiles/Program4.pas b/Pascal/wiles/Program4.pas new file mode 100644 index 0000000..17c959e --- /dev/null +++ b/Pascal/wiles/Program4.pas @@ -0,0 +1,11 @@ +var n,m,a:integer; +begin +write(' : '); +readln(n); +while n>0 do begin +a:=n mod 10; +n:=n div 10; +m:=m*10+a; +end; +write(' - ', m); +end. \ No newline at end of file diff --git a/Pascal/wiles/Program5.pas b/Pascal/wiles/Program5.pas new file mode 100644 index 0000000..522803d --- /dev/null +++ b/Pascal/wiles/Program5.pas @@ -0,0 +1,16 @@ +var even,odd,a:integer; +begin +write(' : '); +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(' - ', even); +write(' - ', odd); +end. \ No newline at end of file diff --git a/Pascal/wiles/Program6.pas b/Pascal/wiles/Program6.pas new file mode 100644 index 0000000..088fa25 --- /dev/null +++ b/Pascal/wiles/Program6.pas @@ -0,0 +1,8 @@ +var x,y:integer; +begin +Writeln(' 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. diff --git a/Pascal/wiles/Program7.pas b/Pascal/wiles/Program7.pas new file mode 100644 index 0000000..34269f5 --- /dev/null +++ b/Pascal/wiles/Program7.pas @@ -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. + ________ + / ___ | + / / | | + / / | + | + / / | | + / _/ |_| \ No newline at end of file diff --git a/Pascal/системы счисления/bin.pas b/Pascal/системы счисления/bin.pas new file mode 100644 index 0000000..5949339 --- /dev/null +++ b/Pascal/системы счисления/bin.pas @@ -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. diff --git a/Pascal/три задачи/1.pas b/Pascal/три задачи/1.pas new file mode 100644 index 0000000..0404f10 --- /dev/null +++ b/Pascal/три задачи/1.pas @@ -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. \ No newline at end of file diff --git a/Pascal/три задачи/2.pas b/Pascal/три задачи/2.pas new file mode 100644 index 0000000..9589b65 --- /dev/null +++ b/Pascal/три задачи/2.pas @@ -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. \ No newline at end of file diff --git a/olymp2016/1/Project1.lpi b/olymp2016/1/Project1.lpi new file mode 100644 index 0000000..83a7bc1 --- /dev/null +++ b/olymp2016/1/Project1.lpi @@ -0,0 +1,63 @@ + + + + + + + + + + + + + <UseAppBundle Value="False"/> + <ResourceType Value="res"/> + </General> + <i18n> + <EnableI18N LFM="False"/> + </i18n> + <VersionInfo> + <StringTable ProductVersion=""/> + </VersionInfo> + <BuildModes Count="1"> + <Item1 Name="Default" Default="True"/> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + </PublishOptions> + <RunParams> + <local> + <FormatVersion Value="1"/> + </local> + </RunParams> + <Units Count="1"> + <Unit0> + <Filename Value="Project1.pas"/> + <IsPartOfProject Value="True"/> + </Unit0> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <Target> + <Filename Value="Project1"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + </CompilerOptions> + <Debugging> + <Exceptions Count="3"> + <Item1> + <Name Value="EAbort"/> + </Item1> + <Item2> + <Name Value="ECodetoolError"/> + </Item2> + <Item3> + <Name Value="EFOpenError"/> + </Item3> + </Exceptions> + </Debugging> +</CONFIG> diff --git a/olymp2016/1/Project1.pas b/olymp2016/1/Project1.pas new file mode 100644 index 0000000..a50794a --- /dev/null +++ b/olymp2016/1/Project1.pas @@ -0,0 +1,37 @@ +program Project1; +var + f, f1: text; + N, sum, sum1: integer; +begin + assign (f, 'zadanie1.txt'); + reset (f); + read (f, N); + close (f); + writeln(N); + sum:=sum+N div 100000; +N:=N mod 100000; + sum:=sum+N div 10000; +N:=N mod 10000; +sum:=sum+N div 1000; +N:=N mod 1000; +sum1:=sum1+N div 100; +N:=N mod 100; +sum1:=sum1+N div 10; +N:=N mod 10; +sum1:=sum1+N div 1; +N:=N mod 1; +assign (f, 'rezultat1.txt'); +rewrite (f); + +if sum = sum1 then begin + write (f, 'schastlyviy'); + writeln ('schastlyviy'); +end +else begin + write (f, 'neschastliviy'); + writeln ('neschastliviy'); +end; +end. +close (f); +end. + diff --git a/olymp2016/1/rezultat1.txt b/olymp2016/1/rezultat1.txt new file mode 100644 index 0000000..e69de29 diff --git a/olymp2016/1/zadanie1.txt b/olymp2016/1/zadanie1.txt new file mode 100644 index 0000000..717cdec --- /dev/null +++ b/olymp2016/1/zadanie1.txt @@ -0,0 +1 @@ +189347 diff --git a/olymp2016/2/NEWTEXT.txt b/olymp2016/2/NEWTEXT.txt new file mode 100644 index 0000000..1f1e4ff Binary files /dev/null and b/olymp2016/2/NEWTEXT.txt differ diff --git a/olymp2016/2/TEXT.txt b/olymp2016/2/TEXT.txt new file mode 100644 index 0000000..1a90956 --- /dev/null +++ b/olymp2016/2/TEXT.txt @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/olymp2016/2/polindrom.cpp b/olymp2016/2/polindrom.cpp new file mode 100644 index 0000000..b6f1fe9 --- /dev/null +++ b/olymp2016/2/polindrom.cpp @@ -0,0 +1,39 @@ +#include <iostream> +//#include <graphics.h> +//#include <conio.h> +#include <fstream> +#include <cstring> +#include <cctype> +#include <cstdio> + +using namespace std; + +int main() { + ifstream f; f.open("TEXT.txt"); + ofstream d; d.open("NEWTEXT.txt"); + char s1[80], s2[80]; int i, j, N, len, k=0; + f>>N; + for (j=0; j<=N; j++) { + k=0; + f.getline(s1, sizeof(s1)); + cout <<s1<<" - "; + d<<s1<<" - "; + //main code here: + len=strlen(s1); + for (i=len-1; i>=0; i--) { + s2[k]=s1[i]; k++; + } + s2[k]='\0'; + if (strcmp(s2,s1)==0) { + cout<<"Palindrom!"<<endl; + d<<"Palindrom!"<<endl; + } else { + cout<<"Ne palindrom!"<<endl; + d<<"Ne palindrom!"<<endl; + } + //end of main code + } + d<<'\0'; + f.close(); d.close(); + return 0; +} diff --git a/olymp2016/3/project1.lpi b/olymp2016/3/project1.lpi new file mode 100644 index 0000000..f6def95 Binary files /dev/null and b/olymp2016/3/project1.lpi differ diff --git a/olymp2016/3/project1.lpr b/olymp2016/3/project1.lpr new file mode 100644 index 0000000..579a350 --- /dev/null +++ b/olymp2016/3/project1.lpr @@ -0,0 +1,27 @@ +program project1; +var a:string; + i:integer; + b:array[1..50] of integer; + s:integer; +begin +writeln('Число в Римской СИ'); +readln(a); +for i:=1 to length(a) do + begin + if a[i]='I'then b[i]:=1; + if a[i]='V'then b[i]:=5; + if a[i]='X'then b[i]:=10; + if a[i]='L'then b[i]:=50; + if a[i]='C'then b[i]:=100; + if a[i]='D'then b[i]:=500; + if a[i]='M'then b[i]:=1000; + end; +s:=0; +for i:=1 to length(a) do + begin + s:=s+b[i]; + if(i>1)and(b[i-1]<b[i]) then s:=s-2*b[i-1]; + end; +write(s); +end. + diff --git a/olymp2016/4/project1.lpi b/olymp2016/4/project1.lpi new file mode 100644 index 0000000..aaa04e0 --- /dev/null +++ b/olymp2016/4/project1.lpi @@ -0,0 +1,63 @@ +<?xml version="1.0" encoding="UTF-8"?> +<CONFIG> + <ProjectOptions> + <Version Value="9"/> + <General> + <Flags> + <MainUnitHasCreateFormStatements Value="False"/> + <MainUnitHasTitleStatement Value="False"/> + </Flags> + <SessionStorage Value="InProjectDir"/> + <MainUnit Value="0"/> + <Title Value="project1"/> + <UseAppBundle Value="False"/> + <ResourceType Value="res"/> + </General> + <i18n> + <EnableI18N LFM="False"/> + </i18n> + <VersionInfo> + <StringTable ProductVersion=""/> + </VersionInfo> + <BuildModes Count="1"> + <Item1 Name="Default" Default="True"/> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + </PublishOptions> + <RunParams> + <local> + <FormatVersion Value="1"/> + </local> + </RunParams> + <Units Count="1"> + <Unit0> + <Filename Value="project1.lpr"/> + <IsPartOfProject Value="True"/> + </Unit0> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <Target> + <Filename Value="project1"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + </CompilerOptions> + <Debugging> + <Exceptions Count="3"> + <Item1> + <Name Value="EAbort"/> + </Item1> + <Item2> + <Name Value="ECodetoolError"/> + </Item2> + <Item3> + <Name Value="EFOpenError"/> + </Item3> + </Exceptions> + </Debugging> +</CONFIG> diff --git a/olymp2016/4/project1.lpr b/olymp2016/4/project1.lpr new file mode 100644 index 0000000..a3a8aa2 --- /dev/null +++ b/olymp2016/4/project1.lpr @@ -0,0 +1,10 @@ +program project1; +var + k,l,m,n: integer; +begin + writeln('k,l,m,n'); + readln(k,l,m,n); + if (k+l+m+n) mod 2=0 then writeln('Одинаковы') + else writeln('Разные'); +end. + diff --git a/olymp2017/1.py b/olymp2017/1.py new file mode 100644 index 0000000..9cc0f5e --- /dev/null +++ b/olymp2017/1.py @@ -0,0 +1,8 @@ +def SumRange(a, b): + sum = 0 + for i in range(a, b): + sum += i + sum += b + return sum +a, b = list(map(int, input().split())) +print(SumRange(a, b)) diff --git a/olymp2017/2.py b/olymp2017/2.py new file mode 100644 index 0000000..a57c3ed --- /dev/null +++ b/olymp2017/2.py @@ -0,0 +1,12 @@ +def Calc(a, b, op): + dived = { + 1: a-b, + 2: a*b, + 3: a/b, + } + try: + return dived[op] + except KeyError: + return a+b +a, b, op = list(map(int, input().split())) +print(Calc(a, b, op)) diff --git a/olymp2017/3.py b/olymp2017/3.py new file mode 100644 index 0000000..a855523 --- /dev/null +++ b/olymp2017/3.py @@ -0,0 +1,6 @@ +def IsPrime(n): + for i in range(2, n): + if (n % i == 0) and (i!=1) and (i!=n): + return False + return True +print(IsPrime(int(input()))) diff --git a/olymp2017/4.py b/olymp2017/4.py new file mode 100644 index 0000000..6fe913f --- /dev/null +++ b/olymp2017/4.py @@ -0,0 +1,7 @@ +def fun(s): + sum = 0 + ff = len(s) + for i in range(ff): + sum += int(s[i]) + return sum +print(fun(str(input()))) diff --git a/olymp2017/5.py b/olymp2017/5.py new file mode 100644 index 0000000..2e6983e --- /dev/null +++ b/olymp2017/5.py @@ -0,0 +1,2 @@ +from math import factorial +print(factorial(int(input()))) diff --git a/str/1.py b/str/1.py new file mode 100644 index 0000000..335b2d1 --- /dev/null +++ b/str/1.py @@ -0,0 +1,15 @@ +def clean(s, ss): + g = '' + for ch in s: + if (ss.find(ch)!=-1): + g += ch + gg = '' + for ch in ss: + if (s.find(ch)!=-1): + gg+=ch + g = g.replace(' ','') + gg = gg.replace(' ','') + return g, gg +s1, s2 = clean(input(), input()) +print(s1) +print(s2) diff --git a/str/Program2.pas b/str/Program2.pas new file mode 100644 index 0000000..33741e4 --- /dev/null +++ b/str/Program2.pas @@ -0,0 +1,8 @@ +var + a: int64; + s: string; + +begin + ReadLn(s); + write(s[3], ' ', s[s.Length], ' ', s[s.Length], ' '); +end. \ No newline at end of file diff --git a/str/Program3.pas b/str/Program3.pas new file mode 100644 index 0000000..9ec22ab --- /dev/null +++ b/str/Program3.pas @@ -0,0 +1,8 @@ +var + a: int64; + s: string; + +begin + ReadLn(s); + if (s[1] = s[s.Length]) then write('') else write(''); +end. \ No newline at end of file diff --git a/str/Program4.pas b/str/Program4.pas new file mode 100644 index 0000000..79cf0a0 --- /dev/null +++ b/str/Program4.pas @@ -0,0 +1,8 @@ +var + a: int64; + s: string; + +begin + ReadLn(s); + write(s[3], s[s.Length]); +end. \ No newline at end of file diff --git a/str/Program5.pas b/str/Program5.pas new file mode 100644 index 0000000..1c361c1 --- /dev/null +++ b/str/Program5.pas @@ -0,0 +1,15 @@ +var + a, m: int64; + s: string; + f: char; + +begin + ReadLn(s); + Readln(f); + m := 0; + for a := 1 to s.Length do + begin + if (s[a] = f) then m := m + 1; + end; + write(m); +end. \ No newline at end of file diff --git a/str/Program6.pas b/str/Program6.pas new file mode 100644 index 0000000..aaa14ff --- /dev/null +++ b/str/Program6.pas @@ -0,0 +1,17 @@ +var + a, m: int64; + s: string; + +begin + ReadLn(s); + m := 0; + for a := 2 to s.Length do + begin + if (string(s[a - 1] + s[a]) = '') then + begin + s[a - 1] := ''; + s[a] := ''; + end; + end; + write(s); +end. \ No newline at end of file