fork download
  1. program Phonebook;
  2. const MAXN = 100000;
  3. var N,i,j,count, lung:Longint;
  4. S :string;
  5. number: array [1..MAXN] of string[20];
  6. begin
  7. readln(N);
  8. count:=0;
  9. for i:=1 to N do
  10. begin
  11. readln(number[i]);
  12. lung:=length(number[i]);
  13. S:=copy (number[i],1, 3);
  14. if S='+39' then if ((lung-3>=9) and (lung-3<=10)) then count:=count+1;
  15. end;
  16. writeln(count);
  17. end.
Success #stdin #stdout 0s 5320KB
stdin
6
+493331234567
+393331234567
+4177653664
+39321578345
+1989485948
+3912345
stdout
2