1.дано трехзначное число. а)определите, входят ли в него цифры 4 и 7. б)определите, входят ли в него одновременно цифры 4 и 7. 2. даны четыре целых числа. вывести на экран минимальное из них. 3.даны три вещественных числа a, b и с - коэффициенты уравнения ax^2+bx+c. найдите решение этого уравнения или сообщите, что решения не существует.

решал на паскале. 

первая: var i: integer; s: string; a: array[1..3] of integer; t.q,z: boolean; beginreadln(i); q: =false; t: =false; a[1]: =i mod 10; a[2]: =i div 10 mod 10; a[3]: =i div 10 div 10; for i: =1 to 3 do

beginif a[i]=4 then

q: =true;

if (a[i]=7) and (q=true) then t: =true;

if a[i]=7 then z: =true;

end;  

if t=true then writeln('vhodyat oba) else if (q=true) and (z=false) then writeln('vhodit 4') else if (q=false) and (z=true) then writeln('vhodut 7'); readln; end.

 

 

вторая: var a,b,c,min: integer; beginmin: =32000; readln(a,b,c); if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln ('minimalnoe - ',min); readln; end.

 

 

третья:

var a,b,c: integer; x,y,d: real; beginreadln(a,b,c); d: =b*b-(4*a*c); if d=0 thenbeginx: =(-b/2*a); writeln('one root: ',x: 0: 0); end; if d> 0 thenbeginx: =(-b+sqrt(d))/2*a; y: =(-b-sqrt(d))/2*a; if y> x thenwriteln('two roots: ',x: 0: 0,' ',y: 0: 0) else writeln('two roots: ',y: 0: 0,' ',x: 0: 0); end; if d< 0 then writeln('no roots'); readln; end.:

 

 

 

 

Спираль из центра массива по часовой стрелке (для нечетных n): const n=7; var a: array[1..n,1..n] of integer; i,j,d,k,l,m: integer; begin k: =n*n; i: =n div 2 + 1; j: =n div 2 + 1; a[i,j]: =k; d: =1; for m: =1 to n div 2 do   begin   for l: =1 to d do   begin   k: =k-1;   j: =j+1; a[i,j]: =k; end;   for l: =1 to d do   begin   k: =k-1;   i: =i+1; a[i,j]: =k; end;   d: =d+1;   for l: =1 to d do   begin   k: =k-1;   j: =j-1; a[i,j]: =k; end;   for l: =1 to d do   begin   k: =k-1;   i: =i-1; a[i,j]: =k; end;   d: =d+1;   end;   d: =d-1;   for l: =1 to d do   begin   k: =k-1;   j: =j+1; a[i,j]: =k; end; for i: =1 to n do   begin   for j: =1 to n do write(a[i,j]: 4);   writeln;   end; end. результат:   7     6     5     4     3   2   1  8  29  28  27  26 25 24  9 30 43 42 41 40 2310 31 44 49 48 39 2211 32 45 46 47 38 2112 33 34 35 36 37 2013 14 15 16 17 18 19

Using system; using system.text; class mainclass {           public static void doreg()         {                     string text = console.readline();                     stringbuilder builder = new stringbuilder();                     bool flag = true;                               foreach (char ch in text)                    {                              // меняем регистр у каждой буквы в соответствии с флагом                               if (flag)                                        builder.append(char.toupper(ch));                               else                                        builder.append(char.tolower(ch));                               flag = ! flag;                     }                     console.writeline(builder.;           }         public static void main()         {                    doreg();                     console.readline();         } }