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
*Không có dấu cách ở giữa
program mat_khau;
uses crt;
var A,B:array[1..10000] of integer;
n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
end;
for i:=1 to n do
begin
write(‘B[‘,i,’]= ‘); readln(B[i]);
end;
write(‘Mat khau cua ban a: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln;
write(‘Mau khau cua ban b: ‘);
for i:=1 to n do write(B[i],’ ‘);
writeln;
write(‘–> Mat khau chung: ‘);
for i:=1 to n do write(B[i],A[i]);
readln;
end.
*Có dấu cách ở giữa như trong đề
program mat_khau;
uses crt;
var A,B:array[1..10000] of integer;
n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
end;
for i:=1 to n do
begin
write(‘B[‘,i,’]= ‘); readln(B[i]);
end;
write(‘Mat khau cua ban a: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln;
write(‘Mau khau cua ban b: ‘);
for i:=1 to n do write(B[i],’ ‘);
writeln;
write(‘–> Mat khau chung: ‘);
for i:=1 to n do
begin
write(B[i],A[i]);
if i=n div 2 then write(‘ ‘);
end;
readln;
end.
uses crt;
var a,b: array[1..100] of integer;
c: array[1..200] of integer;
i,n,k,h: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
{clrscr;}
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
write (‘nhap b[‘,i,’]: ‘); readln (b[i]);
end;
for i:=1 to n*2 do
begin
if i mod 2<>0 then
begin
inc(k);
c[i]:=b[k];
end
else
begin
inc(h);
c[i]:=a[h];
end;
end;
write (‘mat khau la: ‘);
for i:=1 to n*2 do
write (c[i]:3);
readln;
end.