MỌI NGƯỜI ỚI !!!!!!!!!!!!!!!! Viết chương trình tìm ƯỚC CHUNG LỚN NHẤT VÀ BỘI CHUNG NHỎ NHẤT CỦA HAI SỐ bằng pascal nha !!!!!!!!!!!!!! Viết hai chương trình riêng biệt nha !!!!!!!!!!!!!!!!!

nguyenhaanh04112005

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

hungtranmisthy39

program UCLN;

uses Crt;

var UCLN : integer;

a, b: integer;

begin

Clrscr;

Writeln ('Nhap so nguyen a:');

Readln (a);

Writeln ('Nhap so nguyen b:');

Readln (b);

while a>b then a := a-b;

else b := b-a;

if a=b then writeln ('Uoc chung lon nhat la:',a:0:2);

Readln;

end.

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

Honghan2333

ƯỚC CHUNG LỚN NHẤT:

uses crt;
var a,b,i:longint;
begin
clrscr;
write('Nhap 2 so: ');readln(a,b);
i:=a;
while(a mod i<>0)or(b mod i<>0) do dec(i);
writeln('UCLN(',a,',',b,')= ',i);
readln;
end.

BỘI CHUNG NHỎ NHẤT:

uses crt;
var a,b,i:longint;
begin
clrscr;
write('Nhap 2 so: ');readln(a,b);
i:=a;
while(i mod a<>0)or(i mod b<>0) do inc(i);
writeln('BCNN(',a,',',b,')= ',i);
readln;
end.

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

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

Một vệ tinh quay quanh Trái Đất tại độ cao 200 km số với mặt đất . Ở độ cao đó g = 9,2 m/s². Tính vận tốc dài của của vệ tinh GIÚP MÌNH ĐI PLS

Phân tích bài chuyện người con gái nam xương - Nguyễn Dữ

trình bày khái quát về châu á ?

Phân tích bài đồng chí - Chính Hữu

Vẽ biểu đồ cột kép thể hiện diện tích và sản lượng lúa cả năm của nước ta giai đoạn 1980 - 2002 ( mik sẽ cho 5 sao + Cảm ơn + Ctlhn ak ) . Giúp mik với mai mik thi r T T

Lớp 4A có 58 bạn . Lớp 4 B có 60 bạn . Hỏi trung bình mỗi lớp có số bạn là

Thế nào là trang phục phù hợp với môi trường và công việc

viết 1 đoạn văn nêu lên cảm nhận của em vẻ đẹp của người anh hùng quả cảm Quang trung Nguyễn huệ( theo ý hiểu ko chép mạng )

viết đv ngăn về tc quê hương sd từ trái nghĩa Ko sao chép mạng

2 bức đầu là bài 1 nha mn (◕ᴗ◕✿)

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