Zal…!!!!


uses crt;
var
ar1,ar2:array [1..100] of char;
jum,ardigit1,ardigit2:array [1..100] of integer;
panjang1,panjang2,i:integer;
begin
clrscr;
i:=1;
while not eoln do
begin
read(ar1[i]);
inc(i);
end;
panjang1:=i-1;
for i:= 1 to panjang1 do
ardigit1[i]:=ord(ar1[i])-48;
i:=1;
readln;
while not eoln do
begin
read(ar2[i]);
inc(i);
end;
panjang2:=i-1;
for i:= 1 to panjang2 do
ardigit2[i]:=ord(ar2[i])-48;
for i:=1 to panjang1 do
jum[i]:=ardigit1[i]+ardigit2[i];
for i:= 1 to panjang1 do
write(jum[i],’ ‘);
writeln;
readln;
readln;
end.

Iklan
By Yusfia Hafid Aristyagama Posted in Coding

One comment on “Zal…!!!!

Tinggalkan Komentar

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s