VCT Pascal Tìm UCLN Và BCNN Của Hai Số A,b Nhập Từ Bàn Phím
Có thể bạn quan tâm
HOC24
Lớp học Học bài Hỏi bài Giải bài tập Đề thi ĐGNL Tin tức Cuộc thi vui Khen thưởng- Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn
Lớp học
- Lớp 12
- Lớp 11
- Lớp 10
- Lớp 9
- Lớp 8
- Lớp 7
- Lớp 6
- Lớp 5
- Lớp 4
- Lớp 3
- Lớp 2
- Lớp 1
Môn học
- Toán
- Vật lý
- Hóa học
- Sinh học
- Ngữ văn
- Tiếng anh
- Lịch sử
- Địa lý
- Tin học
- Công nghệ
- Giáo dục công dân
- Tiếng anh thí điểm
- Đạo đức
- Tự nhiên và xã hội
- Khoa học
- Lịch sử và Địa lý
- Tiếng việt
- Khoa học tự nhiên
- Hoạt động trải nghiệm
- Hoạt động trải nghiệm, hướng nghiệp
- Giáo dục kinh tế và pháp luật
Chủ đề / Chương
Bài học
HOC24
Khách vãng lai Đăng nhập Đăng ký Khám phá Hỏi đáp Đề thi Tin tức Cuộc thi vui Khen thưởng - Tất cả
- Toán
- Vật lý
- Hóa học
- Sinh học
- Ngữ văn
- Tiếng anh
- Lịch sử
- Địa lý
- Tin học
- Công nghệ
- Giáo dục công dân
- Tiếng anh thí điểm
- Hoạt động trải nghiệm, hướng nghiệp
- Giáo dục kinh tế và pháp luật
Câu hỏi
Hủy Xác nhận phù hợp Chọn lớp Tất cả Lớp 12 Lớp 11 Lớp 10 Lớp 9 Lớp 8 Lớp 7 Lớp 6 Lớp 5 Lớp 4 Lớp 3 Lớp 2 Lớp 1 Môn học Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Tiếng anh thí điểm Đạo đức Tự nhiên và xã hội Khoa học Lịch sử và Địa lý Tiếng việt Khoa học tự nhiên Hoạt động trải nghiệm Hoạt động trải nghiệm, hướng nghiệp Giáo dục kinh tế và pháp luật Mới nhất Mới nhất Chưa trả lời Câu hỏi hay
- Phan Vũ Nhật Huy
VCT pascal tìm UCLN và BCNN của 3 số a,b,c nhập từ bàn phím
please help me!
Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 1 0
Gửi Hủy 
Nguyễn Lê Phước Thịnh CTV 
3 tháng 6 2020 lúc 20:46 uses crt; var a,b,c,ucln,bcnn,i,min:longint; begin clrscr; write('Nhap a='); readln(a); write('Nhap b='); readln(b); write('Nhap c='); readln(c); min:=a; if min>b then min:=b; if min>c then min:=c; ucln:=1; for i:=1 to min do if (a mod i=0) and (b mod i=0) and (c mod i=0) then begin if ucln<i then ucln:=i; end; bcnn:=a*b*c; for i:=a*b*c downto 1 do if (i mod a=0) and (i mod b=0) and (i mod c=0) then begin if bcnn>i then bcnn:=i; end; writeln('Uoc chung lon nhat: ',ucln); writeln('Boi chung nho nhat: ',bcnn); readln; end.
Đúng 0 Bình luận (0) Gửi Hủy 
- Linh Nga Nguyễn
Bài 1: VCT kiểm tra 1 số nguyên nhập từ bàn phím có phải số nguyên tố không?
Bài 2: VCT tìm ước chung lớn nhất của 2 số nguyên a, b được nhập từ bàn phím?
Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 2 0 Gửi Hủy 
Sơn Mai Thanh Hoàng 
15 tháng 3 2022 lúc 15:05 1 không
2
Program UCLN;
uses crt;
var a,b : integer;
begin
write ('nhap so a la ');readln (a);
write ('nhap so b la ');readln (b);
while a < > b do
if a >b then a := a - b else b := b - a ;
write ( ' UCLN la :' , a );
readln
end.
Đúng 0 Bình luận (0) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 15 tháng 3 2022 lúc 20:33 1:
#include <bits/stdc++.h>
using namespace std;
int n,i;
bool kt;
int main()
{
cin>>n;
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true && n>1) cout<<"La so nguyen to";
else cout<<"Khong la so nguyen to";
return 0;
}
Đúng 0 Bình luận (0) Gửi Hủy 
- Nguyễn Mỹ
Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình
Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình
Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình
( làm giúp em lẹ ạ, mai e phải nộp rồi )
Xem chi tiết Lớp 8 Tin học Bài 9. Làm việc với dãy số 4 0 Gửi Hủy 
nguyễn an phát 
5 tháng 4 2021 lúc 18:23 Bài 1:
program in_phan_tu;
uses crt;
var n,i:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:3);
readln;
end.
Bài 2:
program tong_phan_tu;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Bài 3:
program tong_phan_tu_chan;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Đúng 0 Bình luận (0) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 5 tháng 4 2021 lúc 19:50 Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Đúng 0 Bình luận (0) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 5 tháng 4 2021 lúc 19:51 Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0 Bình luận (0) Gửi Hủy Xem thêm câu trả lời 
- phuthuong
Nhập từ bàn phím 2 số nguyên dương a,b (1<a<b<1000)
a) In ra UCLN của 2 số a,b
b) In ra BCNN của 2 số a,b
Xem chi tiết Lớp 12 Tin học Ôn tập cuối năm 1 0 Gửi Hủy 
Nguyễn Quốc Đạt Giáo viên CTVVIP 
8 tháng 9 lúc 18:52 
Bạn tham khảo code C++ nhé
Đúng 1 Bình luận (0) Gửi Hủy 
- GamingDudex
VCT in ra màn hình các số chính phương trong khoảng từ m đến n(m<n). N,m được nhập từ bàn phím (pascal)
Xem chi tiết Lớp 7 Tin học 1 0
Gửi Hủy 
Minh Lệ 
9 tháng 2 2022 lúc 16:02 Program HOC24;
var m,n,i: integer;
Begin
write('Nhap N: '); readln(n);
write('Nhap M: '); readln(m);
for i:=m to n do if sqr(trunc(sqrt(i)))=i then write(i,' ');
readln
end.
Đúng 2 Bình luận (0) Gửi Hủy 
- Bùi Nguyễn Ngọc Anh
viết chương trình nhập 2 số tự nhiên m, n từ bàn phím, in ra màn hình. a) tất cả các ước chung của m và n. b)_ UCLN,BCNN của m và n
Xem chi tiết Lớp 8 Tin học 4 1 Gửi Hủy Bùi Nguyễn Ngọc Anh 14 tháng 2 2022 lúc 14:35 làm ơi cíuuuu
Đúng 0 Bình luận (0)
Gửi Hủy 
Như Nguyệt 14 tháng 2 2022 lúc 14:38 Tham Khảo:
Đúng 0 Bình luận (1) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 14 tháng 2 2022 lúc 14:40
#include <bits/stdc++.h>
using namespace std;
long long n,m,x,i;
//chuongtrinhcon
long long ucln(long long a,long long b)
{
if (b==0) return(a);
else return(ucln(b,a%b));
}
//chuongtrinhchinh
int main()
{
cin>>m>>n;
x=ucln(m,n);
for (i=1; i<=x; i++) if (x%i==0) cout<<i<<" ";
cout<<endl;
cout<<"Uoc chung lon nhat="<<x<<endl;
cout<<"Boi chung nho nhat="<<(m*n)/x<<endl;
return 0;
}
Đúng 0 Bình luận (1) Gửi Hủy Xem thêm câu trả lời 
- dinhnguyentuhuy
Viết chương trình pascal tìm ước chung lớn nhất và bội chung nhỏ nhất của hai số a và b được nhập từ bàn phím Làm giúp với !
Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 1 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 13 tháng 12 2020 lúc 17:09 uses crt;
var a,b,ucln,bcnn,i:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
ucln:=1;
if a<b then begin
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then begin
if ucln<i then ucln:=i;
end;
end else begin
for i:=1 to b do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln('Uoc chung lon nhat la: ',ucln);
writeln('Boi chung nho nhat la: ',bcnn);
readln;
end.
Đúng 1 Bình luận (1) Gửi Hủy 
- NgocTuan
GIẢI BẰNG FREE PASCAL Ạ :
VCT cho phép nhập hai số nguyên a,b là tử mẫu của phân số a/b từ bàn phím rồi thực hiện:
a) rút gọn phân số a/b để được tối giản m/n
b) khi viết phân số m/n dưới dạng số thập phân hãy cho biết chữ số thập phân thứ nhất
c) phân số m/n luôn biểu diễn dưới dạng liên phân số
CẢM ƠN.
Xem chi tiết Lớp 8 Tin học Bài 8. Lặp với số lần chưa biết trước 1 0 Gửi Hủy Nguyễn Lê Phước Thịnh CTV 11 tháng 3 2022 lúc 9:14 #include <bits/stdc++.h>using namespace std;long long a,b;//chuongtrinhconlong long gcd(long long a,long long b){ if (b==0) return(a); return gcd(b,a%b);}//chuongtrinhchinhint main(){ cin>>a>>b; if ((a>0 && b>0) or (a<0 && b<0)) cout<<a/gcd(a,b)<<" "<<b/gcd(a,b); else cout<<"-"<<-a/gcd(-a,b)<<" "<<b/gcd(-a,b); return 0;}
Đúng 0 Bình luận (2)
Gửi Hủy 
- h9iii
-
VCT nhập 3 số a,b,c từ bàn phím. Tìm số lớn nhất trong 3 số đó
Xem chi tiết Lớp 8 Tin học Bài 7. Câu lênh lặp 2 0 Gửi Hủy 
Võ Đức Dũng 
16 tháng 9 2021 lúc 20:57 uses crt;
var a,b,c,max:integer;
begin
clrscr;
write('Nhap a:'); readln(a);
write('Nhap b:'); readln(b);
write('Nhap c:'); readln(c);
max:=-32000;
if max<a then max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln(max);
readln;
end.
Đúng 1 Bình luận (0) Gửi Hủy Nguyễn Lê Phước Thịnh CTV 16 tháng 9 2021 lúc 20:33 uses crt;
var a,b,c,max:integer;
begin
clrscr;
readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln(max);
readln;
end.
Đúng 1 Bình luận (0) Gửi Hủy 
- trang
viết chương trình :Tìm UCLN của 2 số a và b (a và b là các số nhập từ bàn phím).
Xem chi tiết Lớp 8 Toán Câu hỏi của OLM 3 0 Gửi Hủy trang 2 tháng 2 2020 lúc 19:32 các bạn có thể trả lời nhanh đc ko??? mk đag cần gấp.
Đúng 0 Bình luận (0) Khách vãng lai đã xóa Gửi Hủy trang 2 tháng 2 2020 lúc 19:49 program UCLN;
uses crt;
var a,b:integer;
begin
clrscr;
writeln('Moi ban nhap so a:=');readln(a);
writeln('Hay nhap so b:='):readln(b);
While a<>b do
if (a>b) then a:=a-b else b:=b-a;
write('Uoc chung lon nhat la ',a or b);
readln;
end.
Đúng 0 Bình luận (0) Khách vãng lai đã xóa Gửi Hủy 
KAl(SO4)2·12H2O 
4 tháng 2 2020 lúc 16:34 program dam_nhau_khong;
uses crt;
var h,k:integer;
begin
clrscr;
writeln('nhap so h: '); readln(h);
writeln('nhap so k: '); readln(k);
while (h<>k) do
if (h>k) then h:=h-k else k:=k-h;
writeln('uoc chung lon nhat la: ',h);
end.
Đúng 0 Bình luận (0) Khách vãng lai đã xóa Gửi Hủy Từ khóa » Viết Chương Trình Tìm Ucln Và Bcnn Của 2 Số A B được Nhập Từ Bàn Phím
-
Viết Chương Trình Tìm ước Chung Lớn Nhất Của 2 Số A Và B Với A B Là ...
-
Viết Chương Trình Tìm ước Chung Lớn Nhất Của 2 Số A Và B (a ... - Hoc24
-
Viết Chương Trình Tìm ước Chung Lớn Nhất Và Bội Chung Nhỏ Nhất Của ...
-
Viết Chương Trình Tìm ƯCLN Và BCNN Của Hai Số A, B Sau đó Rút Gọn ...
-
Viết Chương Trình Tìm ước Chung Lớn Nhất Và Bội Chung Nhở Nhất Của ...
-
Tìm ước Số Chung Lớn Nhất Và Bội Số Chung Nhỏ Nhất Của A Và B
-
. Viết Chương Trình Tìm UCLN Của Hai Số A, B được Nhập Vào Từ Bàn ...
-
Tìm UCLN Của 2 Số A Và B (a Và B Là Các Số Nhập Từ Bàn Phím). - Olm
-
Lập Trình Căn Bản C: Tìm ước Chung Lớn Nhất, Bội ... - VN SEEDER
-
Bài Tập Java - Tìm ước Số Chung Lớn Nhất Và Bội Số Chung Nhỏ Nhất ...
-
Bài 25. Tìm Bội Chung Nhỏ Nhất Của 2 Số
-
[C++] Viết Chương Trình Tìm UCLN, BCNN Của 2 Số A, B