SaveText.Ru

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

Share with your friends:

Print