fork download 
  1. program scopa;
  2.  
  3. var
  4.     line: ansistring;
  5.     i,j, h, tot, number: longint;
  6.     suit: char;
  7.     numinmano, numintable: array[1..10,1..2] of integer;
  8.     settebinmano, settebintable: boolean;
  9.  
  10. procedure readcard(var s: ansistring; var number: longint; var suit: char);
  11. begin
  12.     if (s[1] = '1') and (s[2] = '0') then
  13.     begin
  14.         number := 10;
  15.         suit := s[3];
  16.         s := copy(s, 5, length(s));
  17.     end else begin
  18.         number := ord(s[1]) - ord('0');
  19.         suit := s[2];
  20.         s := copy(s, 4, length(s));
  21.     end;
  22. end;
  23.  
  24.  
  25.  
  26. begin
  27. {
  28.     uncomment the following lines if you want to read/write from files
  29.     assign(input,  'input.txt');  reset(input);
  30.     assign(output, 'output.txt'); rewrite(output);
  31. }
  32.     for i:=1 to 10 do 
  33.                    for j:=1 to 2 do begin numinmano[i,j]:=0; numintable[i,j]:=0; end;
  34.     settebinmano:=false; settebintable:=false;
  35.  
  36.     readln(line);
  37.     for i:=1 to 3 do
  38.     begin
  39.         { card in hand }
  40.         readcard(line, number, suit);
  41.         writeln (line);
  42.         if (number=7) and (suit='G') then settebinmano:=true
  43.                                      else
  44.                                        begin
  45.                                         numinmano[number,1]:=numinmano[number,1]+1;
  46.                                         case suit of
  47.                                              'G': numinmano[number,2]:=71;
  48.                                              'S' :numinmano[number,2]:=83;
  49.                                              'C' :numinmano[number,2]:=67;
  50.                                              'B' :numinmano[number,2]:=66;
  51.                                          end;    
  52.                                       end;       
  53.  
  54.  
  55.         { use number and suit }
  56.     end;
  57.  
  58.     readln(line);
  59.     tot:=0; 
  60.     for i:=1 to 4 do
  61.     begin
  62.         { card on table }
  63.         readcard(line, number, suit);
  64.         writeln(line);
  65.         numintable[number,1]:=numintable[number,1]+1;
  66.         tot:=tot+number;
  67.         if (number=7) and (suit='G') then settebintable:=true
  68.                                      else
  69.                                        begin
  70.                                         numintable[number,1]:=numintable[number,1]+1;
  71.                                         case suit of
  72.                                              'G': numintable[number,2]:=71;
  73.                                              'S' :numintable[number,2]:=83;
  74.                                              'C' :numintable[number,2]:=67;
  75.                                              'B' :numintable[number,2]:=66;
  76.                                          end;  
  77.                                       end; 
  78.  
  79.         { use number and suit }
  80.     end;
  81.  
  82.     for i:=1 to 3 do if numinmano[tot,1]<>0 then 
  83.                                              begin 
  84.                                                write (numinmano[tot,1],numinmano[tot,2],' ');
  85.                                                write (line);
  86.                                                writeln;
  87.                                              end; 
  88.         end.
Success #stdin #stdout 0s 5312KB
comments (?)
stdin 
5G 7S 8S
2G 3C 1S 2C
stdout 
7S 8S
8S

3C 1S 2C
1S 2C
2C

183 
183 
183
https://ideone.com/I7EJ5r
language:
Pascal (fpc 3.0.4)
created:
20 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!