Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
bui thi tham

viết chương trình tìm ucln và bcnn trong pascal

Võ Nguyễn Thanh Trúc
17 tháng 3 2017 lúc 21:49

tính UCLN của a và b

program uoc_chung;

uses crt;

var a,b: integer;

begin

writeln('nhap a='); readln(a);

writeln('nhap b='); readln(b);

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

else b:=b-a;

if a=b then write ('uoc chung lon nhat la',a)

readln;

end.

BCNN tương tự

38. Lê Phú Vinh 7A6
31 tháng 12 2022 lúc 9:42

Program ucln_bcnn;
Uses crt;
Var x,y,uc,t,tamx,tamy:integer;
Begin
  Clrscr;
  Write('Nhap so nguyen duong x : '); readln(x);
  Write('Nhap so nguyen duong y : '); readln(y);
  tamx:=x;
  tamy:=y;
  t:=y mod x;
  while t<>0 do
   begin
    t:=x mod y;
    x:=y;
    y:=t;
   end;
   uc:=x;
  Writeln('- Ucln(' , tamx , ',' , tamy , ') la : ',uc );
  Writeln('- Bcnn(' , tamx , ',' , tamy , ') la : ',(tamx*tamy) div uc );
  Readln;
End.

 


Các câu hỏi tương tự
haizzz!!
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
hilluu :>
Xem chi tiết
Bbi thành real
Xem chi tiết
Tâm Thanh
Xem chi tiết
Trương Minh Hiếu
Xem chi tiết
Hường Nguyễn Thị Thu
Xem chi tiết
Nguyen Van
Xem chi tiết