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.
uses crt;
var a,b,i,bcnn,ucln:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until (a<>0) and (b<>0);
writeln('Uoc chung cua ',a,' va ',b,' la: ');
if a<b then
begin
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then write(i:4);
end;
if a>b then
begin
for i:=1 to b do
if (a mod i=0) and (b mod i=0) then write(i:4);
end;
if a=b then
begin
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then write(i:4);
end;
writeln;
bcnn:=a*b;
for i:=a*b 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 cua ',a,' va ',b,' la: ',bcnn);
ucln:=1;
for i:=1 to a*b do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
writeln('Uoc chung lon nhat cua ',a,' va ',b,' la: ',ucln);
readln;
end.
Câu 1 :
a) Đầu vào : Giá trị chiều cao của các bạ học sinh khối 6 .
Đầu ra : Giá trị chiều cao của bạn học sinh có chiều cao thấp nhất khối 6 .
b) Đầu vào : Giá trị của ba số a,b và c .
Đầu ra : Giá trị trung bình cộng của ba số a,b và c .
c) Đầu vào : Giá trị của hai số tự nhiên a và b .
Đầu ra : Giá trị bội chung nhỏ nhất của hai số tự nhiên a và b .
Câu 2 :
Đầu vào : Giá trị đoạn thẳng 2a,b và c .
Đầu ra : Giá trị hình tam giác ABC .
Olm chào em, em có gửi lời mời thi đấu qua chat Olm, sẽ có nhiều người thấy được phòng thi đấu của em. Khi đó, bạn sẽ nhận lời mời và thách đấu của em. Chúc em học tập hiệu quả và vui vẻ cùng Olm, em nhé.
bạn vào cửa hàng chrome trên máy tính.
Rồi bạn ấn chữ cursors custom
Xong bạn tìm một cái bất kì rồi tải về, đợi mik lm phần tiếp
thcs nham biến số 1 cơ nhưng thôi kết bạn trao đỏi bài cũng đc
a)
uses crt;
var a:array[1..20] of integer;
i,dem,t:integer;
begin
clrscr;
for i:=1 to 20 do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac phan tu chia het cho 3:');
for i:=1 to 20 do
if a[i] mod 3=0 then write(a[i]:4);
writeln;
dem:=0;
t:=0;
for i:=1 to 20 do
if a[i]>0 then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('Trung binh cong cac phan tu nguyen duong la: ',t/dem:4:2);
readln;
end.
b)
uses crt;
var a:array[1..30] of integer;
i,dem,t:integer;
begin
clrscr;
for i:=1 to 30 do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to 30 do
if a[i] mod 5=0 then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('Trung binh cong cac phan tu chia het cho 5 la: ',t/dem:4:2);
readln;
end.
c)
uses crt;
var a:array[1..200]of integer;
i,n,max,min:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<201);
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('Phan tu lon nhat: ',max);
writeln('Phan tu nho nhat la: ',min);
readln;
end.
#include <iostream>
#include <numeric> // Thư viện chứa hàm lcm của C++17
int main() {
long long a, b;
std::cin >> a >> b;
std::cout << std::lcm(a, b) << std::endl; // In ra BCNN
return 0;
}
dùng using namespace std nha