viết chương trình pascal nhập vào 2 số x,y sau đó in ra ucln và bcnn và x,y có tất cả bao nhiêu ước(chỉ cần in ra số lượng)

hien125qn

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 28 xem

1 trả lời

Thích Trả lời

trangkutecoi

uses crt;
var u, i2, b, t, i, x, y, dem: integer;
begin
clrscr;
write ('nhap x: '); readln (x);
write ('nhap y: '); readln (y);
{randomize;
x:=random(1000);
y:=random(1000);
writeln (x);
writeln (y); }
b:=x*y;
t:=y mod x;
while t<>0 do
begin
t:=x mod y;
x:=y;
y:=t;
end;
u:=x;
b:=b div u;
writeln ('UCLN la: ',u);
writeln ('BCNN la: ',b);
dem:=0;
for i:=1 to x do
if x mod i = 0 then
begin
write (i,' ');
dem:=dem+1;
end;
writeln ('co tat ca ',dem,' UC');
readln;
end.

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

802481193919726

uses crt;
var u, i2, b, t, i, x, y, dem: integer;
begin
clrscr;
write ('nhap x: '); readln (x);
write ('nhap y: '); readln (y);
b:=x*y;
t:=y mod x;
while t<>0 do
begin
t:=x mod y;
x:=y;
y:=t;
end;
u:=x;
b:=b div u;
writeln ('UCLN la: ',u);
writeln ('BCNN la: ',b);
dem:=0;
for i:=1 to x do
if x mod i = 0 then
begin
write (i,' ');
dem:=dem+1;
end;
writeln ('co tat ca ',dem,' UC');
readln;
end.

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

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

Tính số mol và khối lượng của 6,72 khí CH4

phân biệt các loại mạch máu về cấu tạo và chức năng ,động mạch , mao mạch , tĩnh mạch

hoàn thành chuỗi pư sau:fe->feso4->fecl2->alcl3->al(oh)3->al2o3 ↓ fecl3

tìm n (N^3-3n+2n^2-1)chia hết (n+1) tí mình thi rồi giúp mình với

Nếu không có dân chủ mà có kỉ luật thì chuyện gì sẽ xảy ra

Ai giải hộ mik với mik cần gấp..

A=2017+2017^2+2017^3+...+2017^2018 chunh minh A chia het cho 2018

Cho tam giác ABC vuông tại A ( AB < AC ), đường cao AH. Gọi I là trung điểm của AB. Lấy điểm K đối xứng với B qua H. Qua A dựng đường thẳng song song với BC cắt HI tại D a) tứ giác AKHD là hình gì? vì sao b) chứng minh tứ giác AHBD là hình chữ nhật. Từ đó tính diện tích của tứ giác AHBD nếu AH=6cm, AB=10cm c) tam giác vuông ABC cần có thêm điều kiện gì để tứ giác AHBD là hình vuông? d) M là điểm đối xứng với A qua H, chứng minh AK vuông góc với CM

Hiện nay chúng ta cần làm gì để hạn chế những tác động tiêu cực của khoa học- kĩ thuật ?

viết kỉ niệm em với thầy cô mà em nhớ nhất nhanh nha mình cần trong khoảng nửa tiếng nữa nha no coppyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy

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