Question

How to multiply two integers represented as strings and return the result also as a string in Pascal

Answer 1

program MultiplyStrings;

uses 
  SysUtils; // StrToInt64 // Trim // IntToStr

function MultiplyStrings(num1, num2: string): string;
var
  n1, n2, result: Int64;
begin
  // Convert strings to integers safely
  n1 := StrToInt64(Trim(num1));
  n2 := StrToInt64(Trim(num2));

  // Perform multiplication
  result := n1 * n2;

  // Convert result back to string
  MultiplyStrings := IntToStr(result);
end;

var
  num1, num2: string;
begin
  num1 := '123';
  num2 := '456';

  WriteLn('Result: ', MultiplyStrings(num1, num2));
end.


   
     
(*
run:

Result: 56088
     
*)

 

70+ SQL courses for beginners and professionals