Làm sao để có câu trả lời hay nhất?
08/04/2025
08/04/2025
```pascal
program ThanhGo;
var
N, i, j, minLength: Integer;
lengths: array[1..50] of Integer;
totalLength, gcdValue: Integer;
function GCD(a, b: Integer): Integer;
begin
while b <> 0 do
begin
GCD := b;
b := a mod b;
a := GCD;
end;
GCD := a;
end;
begin
// Đọc dữ liệu từ file THANHGO.INP
Assign(input, 'THANHGO.INP');
Reset(input);
ReadLn(N);
totalLength := 0;
for i := 1 to N do
begin
ReadLn(lengths[i]);
totalLength := totalLength + lengths[i];
end;
// Tìm GCD của tất cả các độ dài
gcdValue := lengths[1];
for i := 2 to N do
begin
gcdValue := GCD(gcdValue, lengths[i]);
end;
// Tính độ dài ngắn nhất có thể
minLength := totalLength div gcdValue;
// Ghi kết quả vào file THANHGO.OUT
Assign(output, 'THANHGO.OUT');
Rewrite(output);
WriteLn(minLength);
Close(output);
end.
```
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
Top thành viên trả lời