C++ Problem FPC Solution: SUBEEN-5

ASCII যোগ Programming Challenge

আমরা জানি কম্পিউটারে যে কোনো অক্ষরকেই একটি ASCII সংখ্যা দ্বারা প্রকাশ করা হয়। তোমাকে কতগুলো তিন অক্ষরের শব্দ দেয়া হল। এখন তোমার কাজ হল এর প্রতিটি অক্ষরের ASCII মানের যোগফল বের করা।

ইনপুট

প্রথম লাইনে একটি সংখ্যা থাকবে। তারপর সেই সংখ্যাটির মান যত, ততটি লাইন থাকবে। প্রতি লাইনে একটি করে তিন অক্ষরের ইংরেজি শব্দ দেয়া থাকবে।

আউটপুট

প্রতি লাইনের জন্য সেই লাইনে দেয়া শব্দের অক্ষর তিনটির ASCII মানের যোগফল প্রিন্ট করতে হবে।

উদাহরণ

ইনপুট:

2
CAT
dog



আউটপুট:

216
314

source: http://cpbook.subeen.com/2012/11/ascii-add.html

==================================

program Proj_Prob5;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes;
var
  i, j: Integer;
  inputcount: Integer;
  inputs: array of String;
  the_input: String;

begin
  WriteLn('ASCII addition');
  WriteLn('First enter how many words:');
  ReadLn(inputcount);

  // take inputs
  WriteLn('Enter ', inputcount, ' words with 3 letters:');
  for i := 0 to inputcount - 1 do begin
    SetLength(inputs, i + 1);
    ReadLn(the_input);
    inputs[i] := the_input;
  end;

  // the addition
  WriteLn('The total of ASCII values of words entered in each line:');
  for j := 0 to Length(inputs) - 1 do begin
    WriteLn(byte(inputs[j][1]) + byte(inputs[j][2]) + byte(inputs[j][3]));
  end;

  ReadLn;
end.