Viết Chương Trình Tìm ước Chung Lớn Nhất Của 2 Số A Và B (a ... - Hoc24

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
Đóng Đăng nhập Đăng ký

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 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
Hãy tham gia nhóm Học sinh Hoc24OLM Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

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 Nguyen Thi Hong Ngoc Nguyen Thi Hong Ngoc 6 tháng 12 2017 lúc 20:23

Viết chương trình tìm ước chung lớn nhất của 2 số a và b (a,b là các số nhập từ bàn phím)

P/s: Giúp mk với.

Lớp 8 Tin học Bài 5. Từ bài toán đến chương trình Những câu hỏi liên quan dinhnguyentuhuy
  • dinhnguyentuhuy
13 tháng 12 2020 lúc 5:28

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 Khách Gửi Hủy Nguyễn Lê Phước Thịnh 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) Khách Gửi Hủy Phát Châu
  • Phát Châu
13 tháng 3 2023 lúc 22:09

viết chương trình tìm ước chung lớn nhất của hai số m và n biết rằng m và n là biếnd được nhập từ bàn phím

Xem chi tiết Lớp 8 Tin học 2 0 Khách Gửi Hủy Trần Minh Hiếu Trần Minh Hiếu 13 tháng 3 2023 lúc 22:20

pascal à bạn?

Đúng 0 Bình luận (1) Khách Gửi Hủy Kiều Vũ Linh Kiều Vũ Linh CTV 14 tháng 3 2023 lúc 9:19

Var r,m,n:integer;

Begin

Write('m = ');readln(m);

Write('n = ');readln(n);

Repeat

r:=a mod b;

a:=b;

b:=r;

Until r = 0;

Write('UCLN(',m,',', ',n,') la ',r);

Readln;

End.

Đúng 0 Bình luận (0) Khách Gửi Hủy Minh Lệ
  • Thực hành 3
SGK Chân trời sáng tạo - Trang 94 25 tháng 7 2023 lúc 10:37 Tạo chương trình Scratch để đưa ra ước số chung lớn nhất (ƯCLN) của 2 số nguyên dương a, b được nhập từ bàn phím (xem gợi ý ở Bảng 9).Bảng 9. Thuật toán tìm ước chung lớn nhất của 2 số nguyên dương a, bBước 1. Nhập số nguyên dương a, b.Bước 2. Nếu a b thì lấy giá trị a làm ƯCLN rồi chuyển đến bước 5.Bước 3. Nếu a b thì thay a a – b, ngược lại thay b b - a.Bước 4. Quay lại bước 2.Bước 5. Đưa ra kết quả ƯCLN rồi kết thúc. Đọc tiếp

Tạo chương trình Scratch để đưa ra ước số chung lớn nhất (ƯCLN) của 2 số nguyên dương a, b được nhập từ bàn phím (xem gợi ý ở Bảng 9).

Bảng 9. Thuật toán tìm ước chung lớn nhất của 2 số nguyên dương a, b

Bước 1. Nhập số nguyên dương a, b.

Bước 2. Nếu a = b thì lấy giá trị a làm ƯCLN rồi chuyển đến bước 5.

Bước 3. Nếu a > b thì thay a = a – b, ngược lại thay b = b - a.

Bước 4. Quay lại bước 2.

Bước 5. Đưa ra kết quả ƯCLN rồi kết thúc.

 

Xem chi tiết Lớp 8 Tin học Bài 14: Cấu trúc lặp 1 0 Khách Gửi Hủy Nguyễn Quốc Đạt Nguyễn Quốc Đạt Giáo viên CTVVIP 14 tháng 10 2023 lúc 21:47

loading...

Đúng 0 Bình luận (0) Khách Gửi Hủy haizzz!!
  • haizzz!!
2 tháng 4 2021 lúc 22:38

1.Viết chương trình nhập số nguyên n. Hãy tìm chữ số lớn nhất của n.

2. Viết chương trình nhập từ bàn phím 2 số nguyên a và b. Tìm BCNN của a và b

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 4 0 Khách Gửi Hủy nguyễn an phát nguyễn an phát 3 tháng 4 2021 lúc 12:02

program tim_chu_so;

uses crt;

var i,n,csln:longint;

k:integer;

a:array[1..1000]of longint;

st:string;

begin

clrscr;

write('nhap so n:');readln(n);

str(n,st);

val(st,a[i]);

csln:=a[1];

for i:=1 to length(st) do

if csln<a[i] then csln:=a[i];

writeln('chu so lon nhat cua so ',n,' la:',csln);

readln;

end.

Đúng 0 Bình luận (0) Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 3 tháng 4 2021 lúc 19:21

Câu 1: 

uses crt;

var n,i,d,x,y,max:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

d:=length(st);

max:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

if max<x then max:=x;

end;

writeln('Chu so lon nhat la: ',max);

readln;

end. 

Đúng 0 Bình luận (0) Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 3 tháng 4 2021 lúc 19:23

Câu 2: 

uses crt;

var a,b,i,bcnn:longint;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

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('Boi chung nho nhat la: ',bcnn);

readln;

end.

Đúng 0 Bình luận (0) Khách Gửi Hủy Xem thêm câu trả lời khonopro
  • khonopro
6 tháng 3 2023 lúc 20:08

viết chương trình nhập hai số a,b từ bàn phím, in ra màn hình tất cả ước chung của a và b

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0 Khách Gửi Hủy Phía sau một cô gái Phía sau một cô gái 6 tháng 3 2023 lúc 20:38

program UocChung;

var

      a, b, i: integer;

      uocchung: array[1..100] of integer;

      n: integer;

begin

      write('Nhap a=');

      readln(a);

      write('Nhap b=');

      readln(b);

      n := 0;

      for i := 1 to 100 do

            if (a mod i = 0) and (b mod i = 0) then

            begin

                  uocchung[n] := i;

                  n := n + 1;

            end;

      write('Uoc chung cua ', a, ' va ', b, ' la: ');

      for i := 0 to n-1 do

             write(uocChung[i], ' ');

      readln;

end.

Đúng 2 Bình luận (0) Khách Gửi Hủy ʍ๏ɲ ȼhąɲ
  • ʍ๏ɲ ȼhąɲ
5 tháng 10 2021 lúc 13:44

C1.Viết chương trình tính tổng hai số A và B với A, B là 2 số được nhập từ bàn phím C2. Viết Chương trình nhập vào ba số nguyên a, b, c. tính a+b-c.  C3.Viết Chương trình tính hiệu a - b với a,b là hai số nguyên nhập từ bàn phím. C4.Chương trình nhập vào 3 số x, y, z. Tính (x+y)*z Giúp em với ạ em cảm ơn nhiều lắm ạ

Xem chi tiết Lớp 8 Tin học 2 0 Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 5 tháng 10 2021 lúc 23:49

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

write(a+b);

readln;

end.

Câu 2:

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a+b-c);

readln;

end.

Đúng 1 Bình luận (0) Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 5 tháng 10 2021 lúc 23:50

Câu 3: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a-b);

readln;

end.

Câu 4: 

uses crt;

var x,y,z:integer;

begin

clrscr;

readln(x,y,z);

writeln((x+y)*z);

readln;

end.

Đúng 1 Bình luận (0) Khách Gửi Hủy Phạm Thị Đông Nhi_HDI
  • Phạm Thị Đông Nhi_HDI
21 tháng 6 2020 lúc 15:00

a) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.

b) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.

Xem chi tiết Lớp 8 Toán Câu hỏi của OLM 1 0 Khách Gửi Hủy shitbo shitbo 21 tháng 6 2020 lúc 16:54

program hello;

uses crt;

Var n,i,j,k: integer;

a: array[1..50] of integer;

begin;

a[1]:=k;

Readln(n);

For i:=1 to n do

Begin;

Writeln('nhap a[',i,'] '); Readln(a[i]);

End;

For i:=1 to n-1 do

For j:=i+1 to n do

If a[i]<a[j] then k:=a[j];

Writeln('gia tri lon nhat la', k);

end.

Đúng 1 Bình luận (0) Khách vãng lai đã xóa Khách Gửi Hủy Bùi Nguyễn Ngọc Anh
  • Bùi Nguyễn Ngọc Anh
14 tháng 2 2022 lúc 14:34

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 Khách Gửi Hủy Bùi Nguyễn Ngọc Anh 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) Khách Gửi Hủy Như Nguyệt Như Nguyệt 14 tháng 2 2022 lúc 14:38

Tham Khảo:

Đúng 0 Bình luận (1) Khách Gửi Hủy Nguyễn Lê Phước Thịnh 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) Khách Gửi Hủy Xem thêm câu trả lời trang
  • trang
2 tháng 2 2020 lúc 19:31

 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 Khách Gửi Hủy trang 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 Khách Gửi Hủy trang 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 Khách Gửi Hủy KAl(SO4)2·12H2O 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 Khách Gửi Hủy Phước Thiện Lê Hoàng
  • Phước Thiện Lê Hoàng
22 tháng 4 2021 lúc 20:14

giúp em với 2 câu thôi ạ :

viết chương trình nhập vào xâu bất kì từ bàn phím , ghi xâu sau khi loại bỏ các dấu cách ra tệp D:\ketqua.txt

viết chương trình nhập vào từ bàn phím 4 số bất A,B,C. tìm và thông báo kết quả ra màn hình giá trị nhỏ nhất MIN của 4 số đó có sử dụng chương trình con 

Xem chi tiết Lớp 11 Tin học 2 0 Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 22 tháng 4 2021 lúc 21:27

1:

uses crt;

const fi='ketqua.txt'

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 if st[i]=#32 then delete(st,i,1);

writeln(f1,st);

close(f1);

end.

Đúng 0 Bình luận (0) Khách Gửi Hủy Nguyễn Lê Phước Thịnh Nguyễn Lê Phước Thịnh CTV 22 tháng 4 2021 lúc 21:29

2:

uses crt;

var a,b,c,d:integer;

{----------chuong-trinh-con-----------------------}

function min(x,y:integer):integer;

begin

if x<y then min:=x

else min:=y;

end;

{---------------chuong-trinh-chinh--------------------}

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

writeln(min(a,min(b,min(c,d))));

readln;

end.

Đúng 0 Bình luận (1) Khách Gửi Hủy

Khoá học trên OLM (olm.vn)

  • Toán lớp 8 (Kết nối tri thức với cuộc sống)
  • Toán lớp 8 (Cánh Diều)
  • Toán lớp 8 (Chân trời sáng tạo)
  • Ngữ văn lớp 8 (Kết nối tri thức với cuộc sống)
  • Ngữ văn lớp 8 (Cánh Diều)
  • Ngữ văn lớp 8 (Chân trời sáng tạo)
  • Tiếng Anh lớp 8 (i-Learn Smart World)
  • Tiếng Anh lớp 8 (Global Success)
  • Khoa học tự nhiên lớp 8 (Kết nối tri thức với cuộc sống)
  • Khoa học tự nhiên lớp 8 (Cánh diều)
  • Khoa học tự nhiên lớp 8 (Chân trời sáng tạo)
  • Lịch sử và địa lý lớp 8 (Kết nối tri thức với cuộc sống)
  • Lịch sử và địa lý lớp 8 (Cánh diều)
  • Lịch sử và địa lý lớp 8 (Chân trời sáng tạo)
  • Giáo dục công dân lớp 8 (Kết nối tri thức với cuộc sống)
  • Giáo dục công dân lớp 8 (Cánh diều)
  • Giáo dục công dân lớp 8 (Chân trời sáng tạo)
  • Công nghệ lớp 8 (Kết nối tri thức với cuộc sống)

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