1.) дано трехзначное число. определить, какая из его цифр больше: a. первая или вторая; b. вторая или последняя.

a)

program pr1; uses crt; var a,b,c: integer; beginclrscr; readln(a); c: =a mod 10; a: =a div 10; b: =a mod 10; a: =a div 10; if a> b then writeln('первая цифра > ')else writeln('вторая цифра больше'); end.

b)

program pr1; uses crt; var a,b,c: integer; beginclrscr; readln(a); c: =a mod 10; a: =a div 10; b: =a mod 10; a: =a div 10; if b> c then writeln('вторая цифра > ')else writeln('третья цифра больше'); end.

Class program {     static int gcd(int a, int b)     {         return b == 0 ? a : gcd(b, a % b);     }     static void main()     {         console.write("n = ");         int n = int.parse(console.;         int s = 0, p = 1, c = 0;         while (n > 0)         {             s += n % 10;             p *= n % 10;             n /= 10;             c++;         }         console.writeline("произведение: {0}", p);         console.writeline("сумма: {0}", p);         console.writeline("среднее: {0}", (double)s/c);         // вторая         console.write("p = ");         int p = int.parse(console.;         console.write("q = ");         int q = int.parse(console.;         for (int i = 2; i < = 1 + 2*(int)math.sqrt(p); i++)         {             if (q % i == 0 & & gcd(p, i) == 1)                 console.write(i + " ");         }         console.readline();     } }

Var    a: array of integer;   i, n: integer; begin   randomize;   n : = random(10) + 1;   setlength(a, n);   writeln('исходный массив');   for i : = 0 to n-1 do begin     a[i] : = random(10);     write(a[i]: 5, ' ');   end; writeln;       writeln('возвести в квадрат');   for i : = 0 to n-1 do begin     a[i] : = sqr(a[i]);     write (a[i]: 5, ' ');   end; writeln;       writeln('заполнить степенями 2');   a[n-1] : = 1;   for i : = n-2 downto 0 do     a[i] : = a[i+1] shl 1;         for i : = 0 to n-1 do write (a[i]: 5, ' ');   writeln;       writeln ('умножить на 3 во второй половине');   for i : = n shr 1 to n-1 do     a[i] : = (a[i] shl 1) + a[i];         for i : = 0 to n-1 do write (a[i]: 5, ' ');   writeln; end.