C++ Problem FPC Solution: SUBEEN-3

সংখ্যা গণনা Programming Challenge

এক লাইনে অনেকগুলো সংখ্যা দেওয়া থাকবে। সংখ্যাগুলোর মধ্যে এক বা একাধিক স্পেস ক্যারেক্টার থাকবে। লাইনে মোট কয়টি সংখ্যা আছে সেটি বের করতে হবে।

ইনপুট

প্রথম লাইনে একটি সংখ্যা থাকবে। তারপর সেই সংখ্যাটির মান যত, ততটি লাইন থাকবে। প্রতি লাইনে এক বা একাধিক সংখ্যা থাকবে যাদের পরমমান 10000000-এর বেশি হবে না। একটি লাইনের সংখ্যাগুলোর মাঝে এক বা একাধিক স্পেস ক্যারেক্টার থাকবে।

আউটপুট

প্রতি লাইনে কয়টি সংখ্যা আছে সেটি প্রিন্ট করতে হবে।

উদাহরণ

ইনপুট:

4
1  -2 10000 -50 20 7 445
9
-98 876 65
223   9876452  212



আউটপুট:

7
1
3
3

source: http://cpbook.subeen.com/2012/11/count-numbers.html
==================================================================

program proj_prob3;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, sysutils
  { you can add units after this };

var
  i: Integer;

  inputcount: Integer;
  inputs: array of String;
  the_input: String;

  list: TStringList;
  j:Integer;
  gotnumber: Integer;

begin
  WriteLn('How many number strings?');
  ReadLn(inputcount);

  WriteLn('Enter ', inputcount, ' strings with numbers seperated by space:');
  for i := 0 to inputcount-1 do begin
    SetLength(inputs, i + 1);
    ReadLn(the_input);
    inputs[i] := the_input;
  end;

  WriteLn('The numbers entered in each line:');
  list:=TStringList.Create;
  for i := 0 to Length(inputs)-1 do begin
    list.Clear;
    ExtractStrings([' '], [' '], pchar(inputs[i]), list);
    //WriteLn(list.Count);

    gotnumber:=0;
    for j := 0 to list.Count-1 do begin
        if abs(strtoint(list.Strings[j])) <= 10000000 then begin
          Inc(gotnumber);
        end;
    end;
    WriteLn(gotnumber);

  end;
  list.Free;

  ReadLn;
end.