Ai giúp mik câu này vs mik đang cần rất gấp Vote 5 sao và ctlhn Cho dãy a gồm n số nguyên dương a1, a2, …, an và dãy b gồm m số nguyên dương b1, b2, …, bm. Hai dãy a và b được gọi là tương đương nếu tích các phần tử của dãy a bằng tích các phần tử của dãy b. Yêu cầu: Hãy kiểm tra hai dãy a và b cho trước có tương đương hay không. Dữ liệu: Vào từ file văn bản EQUA.INP gồm ba dòng: Dòng đầu ghi hai số nguyên n và m (1 ≤ n, m ≤ 100); Dòng thứ hai ghi n số nguyên dương a1, a2, …, an (1 ≤ ai ≤ 109 ; 1 ≤ i ≤ n); Dòng thứ ba ghi m số nguyên dương b1, b2, …, bm (1 ≤ bi ≤ 109 ; 1 ≤ i ≤ m). Kết quả: Ghi ra file văn bản EQUA.OUT gồm một số nguyên duy nhất: ghi số 1 nếu hai dãy tương đương với nhau, ghi số 0 nếu hai dãy không tương đương với nhau.
1 câu trả lời
uses crt;
var a:array[1..100]of longint;
b:array[1.100]of longint;
begin
clrscr;
write('n');read(n);
write('m');read(m);
for i:=1 to n do
begin
write('a[',i,']=');read(a[i]);
s1:=s1*a[i];
end;
for i:=1 to m do
begin
write('b[',i,']=');read(b[i]);
s2*=s2*b[i];
end;
if s1=s2 then write('tuong duong') else write('khong tuong duong');
readln;
end.
Câu hỏi trong lớp
Xem thêm
