Bài 17: Chương trình con và phân loại

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Minh Triết

Ai giải hộ em với ạ . Em cảm ơn

viết phương trình cho phép nhạp 2 số nguyên dương bất kì từ bàn phím , tìm và đưa ra màn hình bội chung nhỏ nhất của 2 số nguyên dương vừa nhập trong chương trình có sử dụng chương trình con tìm ước chung lớn nhất của 2 số nguyên dương

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

uses crt;
var a,b,bcnn:integer;
{----------------------chuong-trinh-con----------------------------}
function ucln(var n,m:integer):integer;
var i:integer;
begin
ucln:=1;
for i:=1 to n*m do
if (n mod i=0) and (m mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
{---------------------chuong-trinh-chinh--------------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b div ucln(a,b);
writeln('Boi chung nho nhat=',bcnn);
readln;
end.


Các câu hỏi tương tự
Thúy Hà
Xem chi tiết
Đạt Trần
Xem chi tiết
Trường
Xem chi tiết
Thúy Hà
Xem chi tiết
Phương Bùi Thu
Xem chi tiết
Vương Thế Tài
Xem chi tiết
Bảo Trâm
Xem chi tiết
hà nội 123
Xem chi tiết
tạ đình tuân
Xem chi tiết