PASCAL Tìm UCLN,BCNN Của Dãy(quy định Sử Dụng Dữ Liệu Kiểu ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

hungle8
Chưa có nhóm

Trả lời
6
Điểm
42
Cảm ơn
2

Tin Học
Lớp 6
20 điểm
hungle8 - 19:40:07 29/08/2020

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

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

tuongtaylor
Hội code dạo

Trả lời
2376
Điểm
46183
Cảm ơn
1806

tuongtaylor

Câu trả lời hay nhất!
29/08/2020

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;beginclrscr; 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.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar2 voteGửiHủy

Cảm ơn 2
Báo vi phạm

- hungle8
- Chưa có nhóm
- Trả lời
  6
- Điểm
  42
- Cảm ơn
  2
exit code 103 kiaf
- tuongtaylor
- Hội code dạo
- Trả lời
  2376
- Điểm
  46183
- Cảm ơn
  1806
Sao bên mình ko có
- tuongtaylor
- Hội code dạo
- Trả lời
  2376
- Điểm
  46183
- Cảm ơn
  1806
Xin hay nhất ạ

Đăng nhập để hỏi chi tiết

hoangquantinhoc
Chưa có nhóm

Trả lời
6
Điểm
95
Cảm ơn
5

hoangquantinhoc

29/08/2020

var i,n,a,b, uc,bcnn:integer ;c:array[1..100] of integer;function ucln(a,b:integer):integer;var r:integer;beginr:=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 dobegin 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 dobeginuc:=ucln(uc,c[i]);bcnn:= bcnn*c[i] div uc;end;Writeln(uc);Write(bcnn);close(input); close(output);end.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy