Chương trình con và lập trình có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huyền Nguyễn Ngọc

Viết chuong trình con: Nhập từ bàn phím 2 số nguyên a,b. Tìm BCNN(a,b) và ghi kết quả ra 1 tệp văn bản.

Mọi người giúp e với ạ. E đang cần gấp

Minh Lệ
31 tháng 5 2020 lúc 21:02

Program HOC24;

var a,bcnn,b: integer;

f: text;

function bcnn(x,y: integer): integer;

var tg: integer;

t: longint;

procedure out;

begin

assign(f,fo);

rewrite(f);

write(f,bcnn(a,b));

close(f);

end;

begin

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

out;

readln

end.

Nguyễn Lê Phước Thịnh
31 tháng 5 2020 lúc 21:47

uses crt;

const f='bcnn.out';

var f1:text;

a,b,i,bcnn:longint;

begin

clrscr;

assign(f1,f); rewrite(f1);

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

bcnn:=a*b;

for i:=a*b downto 1 do

if (i mod a=0) and (i mod b=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(f1,bcnn);

close(f1);

readln;

end.


Các câu hỏi tương tự
Bùi Thị Ngọc
Xem chi tiết
09 Lê Quang HIếu
Xem chi tiết
Mạnh Cường Đào Huỳnh
Xem chi tiết
Nguyễn Hữu Nam
Xem chi tiết
Nguyễn Thùy Dương
Xem chi tiết
Minh Phạm
Xem chi tiết
Lê Trung Hiếu
Xem chi tiết
Trần Đức Hải
Xem chi tiết
Nguyễn Phạm Thanh Hằng
Xem chi tiết