ايران ويج

یه سوال در مورد پاسکال داشتم که ممنون می شم یکی از دوستان لطف کنه و واسم انجام بده Confused

برنامه ای بنویسید که 2 عدد 40 رقمی را درهم جمع و ضرب کند

ممنون میشم هرچه زودتر به یاری من بیایید
Amaze

كمك
help

هم اکنون نیازمنده یاری شما هستیم

سازمان کمک به بینوایان
Amaze

کسی نبود کمکم کنه
Angry

سلام:

این برنامه به زبان پاسکال 2 عدد 40 رقمی را از کاربر می گیرد و سپس جمع آن دو عدد 40 رقمی را نشان می دهد.
و اما برای ضرب مثل جمع نیست و عدد حاصل یک عدد خیلی بزرگ است که از چهار بایت بیشتر هست پس باید از آرایه استفاده کنی.

کد: 
program GHOST;

var

  K,P:array[0..40] of Char;

  j,sum:Integer;

begin

 Writeln;

 sum:=0;

 Writeln('Adad Aval:');

 Readln(K);

 Writeln('Adad Dovom:');

 Readln(P);

 for j := 0 to 39 do

   begin

     sum:=( sum +  (( Ord(K[j]) - 48 ) + ( Ord(P[j]) - 48 )) );

 end;

 Writeln(sum);

 Readln;

end.

orshalim

orshalim

orshalim

The.Ghost