PASCAL tìm UCLN,BCNN của dãy(quy định sử dụng dữ liệu kiểu file); vd f1(file input):nhập dãy f2(file output):xuất ra UCLN và BCNN của dãy chú ý: có thể sử dụng hàm kt hoặc ko cần

nguyenduyhautdvp

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 15 xem

1 trả lời

Thích Trả lời

773801139762964

uses crt;
var i,n,t,tich:longint; a:array[1..10000]of longint; f1,f2:text;
function kt(b:longint):boolean;
var i:longint;
begin
kt:=true;
for i:=1 to n do if a[i] mod b<>0 then kt:=false;
end;
begin
clrscr;
assign(f1,'input.pas');reset(f1);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
close(f1);
assign(f2,'output.pas');rewrite(f2);
for i:=1 to a[1] do
if kt(i) then t:=i;
writeln(f2,'UCLN= ',t); tich:=1;
for i:=1 to n do tich:=tich*a[i];
writeln(f2,'BCNN= ',tich div t);
close(f2);
end.

Vote (0) Phản hồi (0) 2 năm trước

server7boy

var i,n,a,b, uc,bcnn:integer ;
c:array[1..100] of integer;

function ucln(a,b:integer):integer;
var r:integer;
begin
r:=a mod b;
while r<>0 do begin a:=b; b:=r; r:= a mod b; end;
ucln:=b;
end;

begin

assign(input,'f1.inp'); reset(input);

assign(output,'f2.out'); close(output);
readln(n);
for i:=1 to n do
begin readln(c[i]); end;
for i:= 1 to n do Write(c[i]:3);writeln;
uc:=ucln(c[1], c[2]);
bcnn:=(c[1]*c[2])div uc;
for i:=3 to n do
begin
uc:=ucln(uc,c[i]);
bcnn:= bcnn*c[i] div uc;
end;
Writeln(uc);
Write(bcnn);
close(input); close(output);
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Trên đường thẳng xy lấy điểm O. Vẽ tia Oz sao cho yOz=130 độ. a. Tính số đo của góc xOz b. Gọi OM, ON lần lượt là tia phân giác của các góc xOz và zOy. Chứng tỏ OM vuông góc với ON Các b giải giúp mk phần b là chính nhaa

tính giá trị tham số m để hàm số f(x) = -x^3 + ( m-2 )x^2 + mx + 3 để hàm số nghịch biến

Câu này giải sao nhỉ các bạn đáng iu

ĐỀ : TÍNH CHẤT CỦA DÃY TỈ SỐ BẰNG NHAU 2, các cạch của một tam giác có số đo tỉ lệ với 3,4,5 . tính các cạch của tam giác biết chu vi của nó là 13,2 cm 3, tìm x,y,z a, a/2 = b/3 và a+b =-15 b, a/2 = b/3 = c/4 và a+2b - 3c =-20

Cho 2 hàm số y =x+ 3 (d) và y = -x +1 (d ') a) Vẽ 2 đồ thị hàm số trên cùng 1 mặt phẳng tọa độ b) Tọa độ điểm của (d) và (d '). Giúp em với ạ. Em cảm ơn

Tưởng troll thôi mà lên vtv thật Vẽ 1 con báo Wakanda Forever

lập sơ đồ cho phép lai : Aabb x aaBb

Giúp với!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Cho biết mói quan hệ giữa p, n, e, A và số Z. Cho ví dụ minh họa

Viết đoạn văn triển khai luận điểm Bức tranh thiên nhiên đêm khuya ở chiến khu Việt Bắc trong bài thơ canh khuya thật thơ mộng, trữ tình

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến