SaveText.Ru

Инфа
  1. [Пересланное сообщение]
  2.   Глеб Машенцев, сегодня в 12:59
  3.  
  4.     [Пересланное сообщение]
  5.     Артём Кузнецов, 26 марта в 16:30
  6.  
  7.       [4 пересланных сообщения]
  8.       Артём Кузнецов, 26 марта в 16:24
  9.       8 Var a,b,c,sum:real;
  10.       n,r:integer;
  11.        s,s1,s2,s3:string;
  12.        begin
  13.        writeln('Введите сумму трёх чисел:');
  14.        read(s);
  15.        n := Pos('+', s);
  16.        s1 := Copy(s, 1, n-1);
  17.        Delete(s, 1, n);
  18.        Val(s1,a,r);
  19.        n := Pos('+', s);
  20.        s2 := Copy(s, 1, n-1);
  21.        Delete(s, 1, n);
  22.        Val(s2,b,r);
  23.        s3 := Copy(s, 1, length(s));
  24.        Val(s3,c,r);
  25.        sum:=a+b+c;
  26.        writeln(a,'+',b,'+',c,'=',sum);
  27.        end.
  28.      
  29.       9
  30.       Var a,b,c,sum:real;
  31.       n1,n2,n,r:integer;
  32.       z1,z2:char;
  33.        s,s1,s2,s3:string;
  34.        begin
  35.        writeln('Введите выражение из трёх чисел:');
  36.        read(s);
  37.        n1 := Pos('+', s);
  38.        n2 := Pos('-', s);
  39.        if (n1=0) then begin
  40.        n := n2;
  41.        z1:='-';
  42.        end
  43.        else if (n2=0)then begin
  44.        n:=n1;
  45.        z1:='+';
  46.        end
  47.        else if (n1>n2) then begin
  48.        n := n2;
  49.        z1:='-';
  50.        end
  51.        else begin
  52.        n:=n1;
  53.        z1:='+';
  54.        end;
  55.        s1 := Copy(s, 1, n-1);
  56.        Delete(s, 1, n);
  57.        Val(s1,a,r);
  58.        n1 := Pos('+', s);
  59.        n2 := Pos('-', s);
  60.        if (n1=0) then begin
  61.        n := n2;
  62.        z2:='-';
  63.        end
  64.        else if (n2=0)then begin
  65.        n:=n1;
  66.        z2:='+';
  67.        end
  68.        else if (n1>n2) then begin
  69.        n := n2;
  70.        z2:='-';
  71.        end
  72.        else begin
  73.        n:=n1;
  74.        z2:='+';
  75.        end;
  76.        s2 := Copy(s, 1, n-1);
  77.        Delete(s, 1, n);
  78.        Val(s2,b,r);
  79.        s3 := Copy(s, 1, length(s));
  80.        Val(s3,c,r);
  81.        if(z1='+')and(z2='+')then sum:=a+b+c;
  82.        if(z1='-')and(z2='+')then sum:=a-b+c;
  83.        if(z1='+')and(z2='-')then sum:=a+b-c;
  84.        if(z1='-')and(z2='-')then sum:=a-b-c;
  85.        writeln(a,z1,b,z2,c,'=',sum);
  86.        end.
  87.      
  88.       7
  89.       Var a,b,c,sum:real;
  90.       n,r:integer;
  91.        s,s1,s2,s3:string;
  92.       begin
  93.        
  94.        writeln('Введите разность двух чисел:');
  95.        read(s);
  96.        n := Pos('-', s);
  97.        s1 := Copy(s, 1, n-1);
  98.        Val(s1,a,r);
  99.        s2 := Copy(s, n+1, length(s));
  100.        Val(s2,b,r);
  101.        sum:=a-b;
  102.        writeln(a,'-',b,'=',sum);
  103.        
  104.       end.
  105.      
  106.       10
  107.       Var a,b,c,sum:real;
  108.       n1,n2,n3,n,r:integer;
  109.       z1,z2:char;
  110.        s,s1,s2,s3:string;
  111.        begin
  112.        writeln('Введите выражение из трёх чисел:');
  113.        read(s);
  114.        n1 := Pos('+', s);
  115.        n2 := Pos('-', s);
  116.        n3 := Pos('*', s);
  117.        if (n1=0) then begin
  118.        n1:=10000;
  119.        end;
  120.        if (n2=0)then begin
  121.        n2:=10000;
  122.        end;
  123.        if (n3=0)then begin
  124.        n3:=10000;
  125.        end;
  126.        if (n1<n2) then begin
  127.        n := n1;
  128.        z1:='+';
  129.        end
  130.        else begin
  131.        n := n2;
  132.        z1:='-';
  133.        end;
  134.        if (n3<n) then begin
  135.        n := n3;
  136.        z1:='*';
  137.        end;
  138.        s1 := Copy(s, 1, n-1);
  139.        Delete(s, 1, n);
  140.        Val(s1,a,r);
  141.        n1 := Pos('+', s);
  142.        n2 := Pos('-', s);
  143.        n3 := Pos('*', s);
  144.        if (n1=0) then begin
  145.        n1:=10000;
  146.        end;
  147.        if (n2=0)then begin
  148.        n2:=10000;
  149.        end;
  150.        if (n3=0)then begin
  151.        n3:=10000;
  152.        end;
  153.        if (n1<n2) then begin
  154.        n := n1;
  155.        z2:='+';
  156.        end
  157.        else begin
  158.        n := n2;
  159.        z2:='-';
  160.        end;
  161.        if (n3<n) then begin
  162.        n := n3;
  163.        z2:='*';
  164.        end;
  165.        s2 := Copy(s, 1, n-1);
  166.        Delete(s, 1, n);
  167.        Val(s2,b,r);
  168.        s3 := Copy(s, 1, length(s));
  169.        Val(s3,c,r);
  170.        if(z1='+')and(z2='+')then sum:=a+b+c;
  171.        if(z1='+')and(z2='-')then sum:=a+b-c;
  172.        if(z1='+')and(z2='*')then sum:=a+b*c;
  173.        if(z1='-')and(z2='-')then sum:=a-b-c;
  174.        if(z1='-')and(z2='+')then sum:=a-b+c;
  175.        if(z1='-')and(z2='*')then sum:=a-b*c;
  176.        if(z1='*')and(z2='*')then sum:=a*b*c;
  177.        if(z1='*')and(z2='+')then sum:=a*b+c;
  178.        if(z1='*')and(z2='-')then sum:=a*b-c;
  179.        writeln(a,z1,b,z2,c,'=',sum);
  180.        end.
  181.  
  182.       Артём Кузнецов, 26 марта в 16:24
  183.       12
  184.      
  185.       Var st:string;
  186.       i:integer;
  187.       Begin
  188.        
  189.        
  190.       writeln('Введите строку:');
  191.       read(st);
  192.       for i:=1 to Length(st)do begin
  193.       if st[i]='а' then st[i]:='б'
  194.       else if st[i]='А' then st[i]:='Б'
  195.       else if st[i]='б' then st[i]:='а'
  196.       else if st[i]='Б' then st[i]:='А'
  197.       end;
  198.       writeln(st);
  199.        
  200.       end.
  201.  
  202.       Артём Кузнецов, 26 марта в 16:25
  203.       13
  204.      
  205.       const MAX = 100;
  206.       var c: char;
  207.        i, N, count, Year, Gol: integer;
  208.        fam: array[1..MAX] of string;
  209.        name: array[1..MAX] of string;
  210.        Gool: array[1..MAX] of integer;
  211.        
  212.       begin
  213.        writeln('Введите количество футболистов: ');
  214.        readln(N);
  215.        count := 0;
  216.        for i:=1 to N do begin
  217.        fam[i]:='';
  218.        name[i]:='';
  219.        repeat read(c);
  220.        fam[i]:=fam[i]+c;
  221.        until c = ' ';
  222.        
  223.        repeat read(c);
  224.        name[i]:=name[i]+c;
  225.        until c = ' ';
  226.        read(Year);
  227.        readln(Gol);
  228.        Gool[i]:= Gol;
  229.        end;
  230.        writeln(' ');
  231.        for i:=1 to N do begin
  232.        if (Gool[i]>2) then
  233.        writeln(fam[i],' ',name[i]);
  234.        end;
  235.       end.
  236.      
  237.       14
  238.      
  239.       const MAX = 100;
  240.       var c: char;
  241.        i,r, N, count, Year, Gol: integer;
  242.        fam: array[1..MAX] of string;
  243.        name: array[1..MAX] of string;
  244.        Gool: array[1..MAX] of integer;
  245.        
  246.       begin
  247.        writeln('Введите количество футболистов: ');
  248.        readln(N);
  249.        count := 0;
  250.        for i:=1 to N do begin
  251.        fam[i]:='';
  252.        name[i]:='';
  253.        repeat read(c);
  254.        fam[i]:=fam[i]+c;
  255.        until c = ' ';
  256.        
  257.        repeat read(c);
  258.        name[i]:=name[i]+c;
  259.        until c = ' ';
  260.        read(Year);
  261.        readln(Gol);
  262.        Gool[i]:= Gol;
  263.        end;
  264.        writeln(' ');
  265.        r:=1;
  266.        for i:=2 to N do begin
  267.        if (Gool[i]>Gool[i-1]) then
  268.        r:=i;
  269.        end;
  270.        writeln(fam[r],' ',name[r],' ',Gool[r]);
  271.       end.
  272.  
  273.       Артём Кузнецов, 26 марта в 16:25
  274.       15 const MAX = 100;
  275.       var c: char;
  276.       ex:string;
  277.        i,j,r, N, count, Year, Gol: integer;
  278.        fam: array[1..MAX] of string;
  279.        name: array[1..MAX] of string;
  280.        Gool: array[1..MAX] of integer;
  281.        
  282.       begin
  283.        writeln('Введите количество футболистов: ');
  284.        readln(N);
  285.        count := 0;
  286.        for i:=1 to N do begin
  287.        fam[i]:='';
  288.        name[i]:='';
  289.        repeat read(c);
  290.        fam[i]:=fam[i]+c;
  291.        until c = ' ';
  292.        
  293.        repeat read(c);
  294.        name[i]:=name[i]+c;
  295.        until c = ' ';
  296.        read(Year);
  297.        readln(Gol);
  298.        Gool[i]:= Gol;
  299.        end;
  300.        writeln(' ');
  301.        For i:=1 To N-1 Do
  302.        For j:=1 To N-i Do
  303.        If fam[j]>fam[j+1]
  304.        Then
  305.        Begin
  306.        Ex:=fam[j];
  307.        fam[j]:=fam[j+1];
  308.        fam[j+1]:=Ex;
  309.        Ex:=name[j];
  310.        name[j]:=name[j+1];
  311.        name[j+1]:=Ex;
  312.        r:=gool[j];
  313.        gool[j]:=gool[j+1];
  314.        gool[j+1]:=r;
  315.        End;
  316.        For i:=1 To N Do
  317.        if (gool[i]>0) then
  318.        writeln(fam[i],' ',name[i]);
  319.       end.

Share with your friends:

Print