Viết Chương Trình Pascal Tìm ước Chung Lớn Nhất Và Bội Chung Nhỏ ...

Học liệu Hỏi đáp Đăng nhập Đăng ký

• Học bài
• Hỏi bài
• Kiểm tra
• ĐGNL
• Thi đấu
• Thư viện số
• Bài viết Cuộc thi Tin tức Blog học tập
• Trợ giúp
• Về OLM

(Từ ngày 12/12) Lớp live ôn thi cuối kỳ I hoàn toàn miễn phí - Tham gia ngay!!!

 Mở bộ đề mới - nhận quà VIP liền tay

• Mẫu giáo
• Lớp 1
• Lớp 2
• Lớp 3
• Lớp 4
• Lớp 5
• Lớp 6
• Lớp 7
• Lớp 8
• Lớp 9
• Lớp 10
• Lớp 11
• Lớp 12
• ĐH - CĐ

K Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Xác nhận câu hỏi phù hợp

×

Chọn môn học 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 Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên Mua vip

• Tất cả
• Mới nhất
• Câu hỏi hay
• Chưa trả lời
• Câu hỏi vip

D dinhnguyentuhuy 13 tháng 12 2020

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 !

#Hỏi cộng đồng OLM #Tin học lớp 8 1 NL Nguyễn Lê Phước Thịnh 13 tháng 12 2020

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) D dinhnguyentuhuy 13 tháng 12 2020

cảm ơn

Đúng(0) Những câu hỏi liên quan PC Phát Châu 13 tháng 3 2023

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

#Hỏi cộng đồng OLM #Tin học lớp 8 2 TM Trần Minh Hiếu 13 tháng 3 2023

pascal à bạn?

Đúng(0) PC Phát Châu 13 tháng 3 2023

đúng rồi í mai mình thy rùi giúp mình nhé cảm ơn nhiều

Đúng(0) Xem thêm câu trả lời D dinhnguyentuhuy 5 tháng 6 2020

viết chương trình pascal tìm ước chung lớn nhất và bội chung nhỏ nhất của ba số a,b,c nhập từ bàn phím

#Hỏi cộng đồng OLM #Tin học lớp 8 1 HN Huy Nguyễn 10 tháng 11 2020

tìm ước chung lớn nhất của a và b rồi so sánh với c nha

Đúng(0) NL Nguyễn Lê Phước Thịnh 5 tháng 6 2020

uses crt;

var a,b,c,min,ucln,bcnn:longint;

begin

clrscr;

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

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

write('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;

writeln('uoc chung lon nhat=',ucln);

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

readln;

end.

Đúng(0) ML Minh Lệ 25 tháng 7 2023 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...Đọ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.

 

#Hỏi cộng đồng OLM #Tin học lớp 8 1 NQ Nguyễn Quốc Đạt CTVVIP 14 tháng 10 2023

Đúng(0) K khonopro 6 tháng 3 2023

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

#Hỏi cộng đồng OLM #Tin học lớp 8 1 PS Phía sau một cô gái 6 tháng 3 2023

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) PT Phan Thị Phương Thy 28 tháng 4 2021

Viết chương trình nhập dãy n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và lớn nhất với n được nhập từ bàn phím

#Hỏi cộng đồng OLM #Tin học lớp 8 2 ML Minh Lệ 28 tháng 4 2021

Program HOC24;

var a: array[1..32000] of integer;

i,max,min,n: integer;

begin

write('Nhap so phan tu N: '); readln(N);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1]; min:=a[1];

for i:=1 to n do

begin

if a[i]>max then max:=a[i];

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

end;

writeln('So nho nhat la :',max);

write('So lon nhat la: ',min);

readln

end.

Đúng(0) NL Nguyễn Lê Phước Thịnh 28 tháng 4 2021

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

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

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

Đúng(0) Xem thêm câu trả lời HN Hiền Nguyễn 26 tháng 4 2021 a) Nhập vào hai số nguyên a và b (1≤ a,b ≤ 109). Tính và in lên màn hình ước chung lớn nhất(UCLN) v à bội chung nhỏ nhất (BCNN) của a,b.b)Dãy số fibonacy được định nghĩa như sau:f1=f2=1fn=fn-1+fn-2 (với n >=3)Hãy viết chương trình in ra n số đầu tiên của dãy fibonacy.Dữ liệu nhập:là số nguyên n (1<=n<=30)Dự liệu xuất: là n số fibonacy đầu tiên trên cùng một dòng, mỗi số cách nhau một khoảng...Đọc tiếp

a) Nhập vào hai số nguyên a và b (1≤ a,b ≤ 109). Tính và in lên màn hình ước chung lớn nhất(UCLN) v à bội chung nhỏ nhất (BCNN) của a,b.

b)Dãy số fibonacy được định nghĩa như sau:

f1=f2=1

fn=fn-1+fn-2 (với n >=3)

Hãy viết chương trình in ra n số đầu tiên của dãy fibonacy.

Dữ liệu nhập:là số nguyên n (1<=n<=30)

Dự liệu xuất: là n số fibonacy đầu tiên trên cùng một dòng, mỗi số cách nhau một khoảng trắng.

 

#Hỏi cộng đồng OLM #Tin học lớp 8 2 NA nguyễn an phát 27 tháng 5 2021

a)

program UCLN_va_BCNN;

uses crt;

var a,b,c,r,p:integer;

begin

clrscr;

write('nhap a,b:');readln(a,b);

if a<b then 

begin

c:=a;

a:=b;

b:=c;

end;

p:=a*b;

r:=a mod b;

while r<>0 do

begin

a:=b;

b:=r;

r:=a mod b;

end;

writeln('UCLN la: ',b);

writeln('BCNN la: ',p div b);

readln;

end.

Đúng(0) NA nguyễn an phát 27 tháng 5 2021

b)

program fibonaci;

uses crt;

var i,n:integer;

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

begin

clrscr;

repeat

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

if (n<1)or(n>30) then writeln('so n phai lon hon hoac bang 1 va nho hon hoac bang 30:);

until (n>=1)and(n<=30);

a[1]:=1;

a[2]:=1;

for i:=3 to n do

a[i]:=a[i-1]+a[i-2];

writeln(n,' so fibonaci dau tien la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

Đúng(0) Xem thêm câu trả lời T Trường 11 tháng 3 2022

Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!

#Hỏi cộng đồng OLM #Tin học lớp 11 1 NL Nguyễn Lê Phước Thịnh 11 tháng 3 2022

uses crt;

var a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

Đúng(0) PT Phương Thảo 19 tháng 5 2021

Đang cần gấp, mọi người giúp mình với ạ.

--Lậpchương trình tìm ước chung lớn nhất của dãy số nguyên A gồm N phần tử được nhập vào từ bàn phím.

#Hỏi cộng đồng OLM #Tin học lớp 11 1 ML Minh Lệ 20 tháng 5 2021

Program HOC24;

var a: array[1..32000] of integer;

ucln,i,n,ucln1: integer;

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

var tg: integer;

begin

while y<>0 do

begin

tg:=x mod y;

x:=y;

y:=tg;

end;

uc:=x;

end;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

ucln1:=uc(a[1],a[2]);

for i:=3 to n do ucln:=uc(ucln1,a[i]);

write('Uoc chung lon nhat cua day so la: ',ucln);

readln

end.

Đúng(1) PT Phạm Thị Đông Nhi_HDI 21 tháng 6 2020 - olm

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.

#Hỏi cộng đồng OLM #Toán lớp 8 1 S shitbo 21 tháng 6 2020

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) Xếp hạ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 Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên

• Tuần
• Tháng
• Năm

• KV Kiều Vũ Linh 2 GP
• E ✦𝘉é✿𝘤𝘩í𝘱✦ 2 GP
• E ElmSunn 2 GP
• NT Nguyễn Trọng Đạt VIP 2 GP
• -❇️🆗𝕰𝔛𝕻𝔈𝕽ℑ𝕰𝔑𝕮𝔈𝕯✳️𝕻𝔈𝕺𝔓𝕷𝔈🆒❎- 2 GP
• D Đ𝙖̆𝙣𝙜 𝙈𝙞𝙣𝙝 (𝙈𝙚𝙤𝙠𝙤𝙣𝙝𝙤𝙣𝙜𝙪𝙤𝙣𝙜𝙩𝙝𝙪𝙤𝙘) 2 GP
• NV ✫⊰ Ngô Vũ ༒ Công Vinh ⊱✫ VIP 2 GP
• NT Nguyễn Thanh Trúc 2 GP
• LD Lê Duy Anh 2 GP
• NB Nguyễn Bá Hiếu 2 GP

Học liệu Hỏi đáp Link rút gọn Link rút gọn Để sau Đăng ký

Các khóa học có thể bạn quan tâm

× Mua khóa học Tổng thanh toán: 0đ (Tiết kiệm: 0đ) Tới giỏ hàng Đóng ×

Yêu cầu VIP

×

Học liệu này đang bị hạn chế, chỉ dành cho tài khoản VIP cá nhân, vui lòng nhấn vào đây để nâng cấp tài khoản.