Viết Giúp Mình Chương Trình Pascal "tìm ước Chung Lớn Nhất (x, Y ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

hg154637
Chưa có nhóm

Trả lời
20
Điểm
20554
Cảm ơn
9

Tin Học
Lớp 8
10 điểm
hg154637 - 09:06:16 27/02/2022

Viết giúp mình chương trình Pascal "tìm ước chung lớn nhất (x, y) với, sử dụng câu lệnh lặp for... do, mình xin cảm ơn ạ.

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

shamsiel
Chưa có nhóm

Trả lời
10754
Điểm
114829
Cảm ơn
5909

shamsiel

Câu trả lời hay nhất!
27/02/2022

uses crt;

var i, x, y, nn, uc : integer;

begin

clrscr;

write('Nhap hai so x, y : '); readln(x, y);

if x > y then nn := y else nn := x;

for i := 1 to nn do

if (x mod i = 0) and (y mod i = 0)

then uc := i;

writeln('UCLN cua ', x ,' va ', y ,' la : ', uc);

readln

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar2 voteGửiHủy

Cảm ơn 1
Báo vi phạm

Đăng nhập để hỏi chi tiết avatar

newborn
Accueil des développeurs 3

Trả lời
4327
Điểm
2541
Cảm ơn
1958

newborn

27/02/2022

uses crt;var i,x,y,UCLN:integer;beginclrscr;write('Nhap x: ');readln(x);write('Nhap y: ');readln(y);write('UCLN(',x,', ',y,') = ');for i:=x to y doif x<>y then if x>y then x:=x-y else if y>x then y:=y-x;UCLN:=x;writeln(UCLN);readln;end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar2.7starstarstarstarstar3 voteGửiHủy

Cảm ơn 2
Báo vi phạm

- QLinkVN
- NHỮNG CHIẾN BINH SAO VÀNG
- Trả lời
  1610
- Điểm
  48721
- Cảm ơn
  2022
đọc đề đi e
- QLinkVN
- NHỮNG CHIẾN BINH SAO VÀNG
- Trả lời
  1610
- Điểm
  48721
- Cảm ơn
  2022
while-do dễ quá r
- newborn
- Accueil des développeurs 3
- Trả lời
  4327
- Điểm
  2541
- Cảm ơn
  1958
để em sửa
- QLinkVN
- NHỮNG CHIẾN BINH SAO VÀNG
- Trả lời
  1610
- Điểm
  48721
- Cảm ơn
  2022
chưa chính xác đâu nha
- newborn
- Accueil des développeurs 3
- Trả lời
  4327
- Điểm
  2541
- Cảm ơn
  1958
chị gợi ý cho em được không