<Uzh.Soft/>

1. program m1;
2. var a, b: integer;
3. begin
4.     a:=1;
5.     b:=2;
6.  
7.     b:=b xor a;
8.     a:=b xor a;
9.     b:=b xor a;
10.  
11.     writeln('a=',a ... Читать дальше »

1. program p3;
2. uses crt;
3. var i,N :integer;
4.     B,D,P,q,SX :real;
5. begin
6.     write('B= ') ... Читать дальше »

1. program p1;
2. uses crt;
3. var D,B,C,N,i,L,J :integer;
4. begin
5.     write('D= ');
6.     readln(D ... Читать дальше »

1. var
2.     i,res,j: integer;
3.     s:string;
4. function power (x,pow:integer):integer;
5. var res: integer;
6. begin
7.     res := 1;
8.     while ( ... Читать дальше »

1. begin
2.    for j:=1 to N-1 do
3.      for i:=1 to N-j do
4.         if M[i] > M[i+1] then
5.         begin ... Читать дальше »

1. function getCharCountFromFile(fname : string, findChar : char) : integer;
2. var   
3.             ch : char;
4.             infile : text;
5.             count : integer;
6. begin
7.   ... Читать дальше »

1. function MinNumber(a,b: real): real;
2.    var min: real;
3. begin
4.    if a<b then min:=a else min:=b;
5.    MinNumber:= min;
6. end;

1. function MaxNumber(a,b: real): real;
2.    var max: real;
3. begin
4.    if a>b then max:=a else max:=b;
5.    MaxNumber := max;
6. end;

1. z = 2      'знаменатель
2. n = 10     'количество выводимых значений
3. x = z
4. For i = 1 to (n + 1)
5.    Range("A" + CStr(i)) = x
6.    x = x * z
7. Next i

1. int[] StrToIntArray(string inp, char separator)
2. { 
3.     string[] x = s.Split(separator);
4.     int[]  outp = new int[x.Length ... Читать дальше »