Ai giúp mình với mình cho câu tlhn
Hai bạn đặt mật khẩu là các mảng a và b gồm các số nguyên(nhập từ bàn phím). Khi hai bạn thích nhau quyết định đặt chung mật khẩu như trong ví dụ.
ví dụ
mật khẩu bạn a 5 7 1 8 4
mật khẩu bạn b 4 6 1 0 2
—> 4567 110824
Quy luật đại loại là: B[1] A[1], B[2] A[2]….,B[n],A[n]
Viết phần mềm ấy bằng pascal với hai mảng nhập từ bàn phím
Ai giúp mình với mình cho câu tlhn Hai bạn đặt mật khẩu là các mảng a và b gồm các số nguyên(nhập từ bàn phím). Khi hai bạn thích nhau quyết định đặt
By Jade
uses crt;
var i,n:longint; s:string; a:array[1..100000]of string;
b:array[1..100000]of longint;
begin
clrscr;
write(‘mat khau cua ban a ‘);readln(s);
s:=’ ‘+s+’ ‘;
for i:=1 to length(s)-1 Do
if (s[i]=’ ‘)and(s[i+1]<>’ ‘) then inc(n) else
if s[i]<>’ ‘ then a[n]:=a[n]+s[i];
write(‘mat khau cua ban b ‘);
for i:=1 to n do read(b[i]); readln;
randomize;
for i:=1 to n do write(b[i],a[i]);
readln
end.
uses crt;
var a,b:array[1..1000] of word;
i,n:word;
st:string;
begin
clrscr;
n:=0;
readln(st);
while pos(‘ ‘,st)<>0 do delete(st,pos(‘ ‘,st),1);
if st[1]=’ ‘ then delete(st,1,1);
if st[length(st)]<>’ ‘ then st:=st+’ ‘;
while pos(‘ ‘,st)<>0 do
begin
inc(n);
val(copy(st,1,pos(‘ ‘,st)-1),a[n]);
delete(st,1,pos(‘ ‘,st));
end;
for i:=1 to n do read(b[i]);
for i:=1 to n do write(b[i],a[i]);
readln;readln;
end.