چند تا تمرین پاسکال

[orshalim]

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




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




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

[orshalim]

كمك
help

---

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




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

[orshalim]

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

[The.Ghost]

سلام:
این برنامه به زبان پاسکال 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.