Program UCLN;
Uses crt;
Var a,b,r:byte;
Begin
Clrscr;
Writeln['CHUONG TRINH TIM UCLN CUA HAI SO'];
Write['Nhap a: '];readln[a];
Write['Nhap b: '];readln[b];
r:=a mod b;
While r 0 do
Begin
b:=r;
a:=b;
r:=a mod b;
End;
Write['UCLN cua hai so la: ',b];
Readln
End.
Answers [ ]
giangnguyen
2021-07-22T10:48:44+00:00 22/07/2021 at 10:48
Reply
program UCLN;
uses crt;
var m,n:integer;
begin
clrscr;
write[‘Nhap m: ‘]; readln[m];
write[‘Nhap n: ‘]; readln[n];
while mn do
if m>n then m:=m-n else n:=n-m;
write[‘UCLN= ‘,m];
readln;
end.
tuyetnhung
2021-07-22T10:49:14+00:00 22/07/2021 at 10:49
Reply
Program bai_tap;
Uses crt;
Var m ,n: integer;
Begin
clrscr;
write [‘Nhập m, n= ‘];
readln [m,n];
While m n do
if m >n then m:= m – n else n:= n – m;
writeln[ ‘ UCLN = : ‘, m];
readln
End.
Answers [ ]
ngochoa
2021-08-01T12:18:19+00:00 01/08/2021 at 12:18
Reply
a. Tìm ƯCLN:
Uses crt;
Var x, y: integer;
Begin
Clrscr;
Write[‘Nhap x = ‘]; readln[x];
Write[‘Nhap y = ‘]; readln[y];
While xy do
If x>y then x:=x-y else y:=y-x;
Writeln[‘UCLN = ‘,x];
Readln
End.b. Tìm BCNN:
Uses crt;
Var a, b, c, d: integer;
Begin
Clrscr;
Write[‘Nhap a = ‘]; readln[a];
Write[‘Nhap b = ‘]; readln[b];
d:=a*b;
While ab do if a>b then a:=a-b else b:=b-a;
c:=a;
d:=d div c;
Writeln[‘BCNN = ‘,d];
Readln
End.tonhu
2021-08-01T12:18:40+00:00 01/08/2021 at 12:18
Reply
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:
var x,y,UCLN,BCNN,t:integer;
begin
readln[x,y] ;
BCNN:=x*y;
t:= y mod x;
While t 0 do
Begin
t:= x MOD y;
x:= y;
y:= t;
End;ucln:=x;
BCNN:=BCNN div UCLN;write[UCLN,’ ‘,BCNN];
end.
Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:
- Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ [10 ≤ A, M ≤ 103].
- Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.
Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:
- Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát [mỗi số cách nhau một ký tự trắng].
- Hàng 2: lần lượt là số áo, số mũ còn thừa.
23/10/2022 | 0 Trả lời
Cho 2 số nguyên a,b. thương của 2 số nguyên là c: hãy viết chương trình tính thương của 2 số đó
Giúp em v ạ em sắp thi
27/10/2022 | 1 Trả lời
[0101...] là cơ sở để tạo ra ngôn ngữ gì?
30/10/2022 | 1 Trả lời
Máy tính chỉ có thể hiểu trực tiếp hiểu ngôn ngữ nào?
30/10/2022 | 1 Trả lời
Máy tính thực hiện một công việc thông qua yếu tố nào?
30/10/2022 | 1 Trả lời
Ngôn ngữ lập trình thông dụng ở cấp học THCS là gì?
30/10/2022 | 1 Trả lời
Chương trình máy tính là dãy ………. mà máy tính có thể hiểu và thực hiện được.
30/10/2022 | 1 Trả lời
Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng[khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả].
Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng [khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả].
31/10/2022 | 0 Trả lời
Để cho Rô-bốt thực hiện được công việc nhặt rác thì con người phải làm gì?
31/10/2022 | 1 Trả lời
Từ khoá của một ngôn ngữ lập trình là gì?
31/10/2022 | 1 Trả lời
Uses là từ khóa để khai báo yếu tố gì?
31/10/2022 | 1 Trả lời
Dùng từ khóa nào để cho biết điểm bắt đầu và kết thúc chương trình?
01/11/2022 | 1 Trả lời
Viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b.
viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b