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.
Chương trình này sẽ nhận 3 số nguyên từ người dùng, tính tích của chúng, và sau đó tìm số mũ lớn nhất mà tích đó có thể được viết dưới dạng lũy thừa của một số nguyên dương. Chúng tôi sử dụng hàm math.log2 để tính số mũ lớn nhất. Lưu ý rằng kết quả sẽ được làm tròn xuống số nguyên gần nhất.
uses crt;
type mang=array[1..100]of integer;
var a:mang;
{-------------------cau-1---------------------------}
function nhap(var b:mang):integer;
var i,n:integer;
begin
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(b[i]);
end;
end;
{-------------------cau-2---------------------------}
function xuat(var b:mang):integer;
var i,n:integer;
begin
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(b[i]:4);
end;
{-------------------cau-3---------------------------}
function sapxep(var b:mang):integer;
var i,n,tam,j:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]<b[j] then
begin
tam:=b[i];
b[i]:=b[j];
b[j]:=tam;
end;
writeln;
writeln('Day so giam dan la: ');
for i:=1 to n do write(b[i]:4);
end;
{-----------------chuong-trinh-chinh------------------------}
begin
clrscr;
nhap(a);
xuat(a);
sapxep(a);
readln;
end.
1:
uses crt;
var a,dt,cv:real;
begin
clrscr;
write('nhap canh hinh vuong:'); readln(a);
if a<=0 then writeln('vui long nhap lai')
else begin
cv:=a*4;
dt:=sqr(a);
writeln('chu vi hinh vuong la: ',cv:10:4);
writeln('dien tich hinh vuong la: ',dt:10:4);
if dt mod 2=0 then writeln('hinh vuong chan')
else writeln('hinh vuong le');
end;
readln;
end.
2:
uses crt;
var x,y,z,s1,s2:integer;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
if (x<0) and (y<0) and (z<0) then
begin
s1:=3*x+2*y;
writeln('tong s1=',s1);
s2:=6-7*y;
writeln('tong s2=',s2);
end
else writeln('vui long nhap cac so am');
readln;
end.
3:
uses crt;
var a,b,c,t:integer;
begin
clrscr;
write('nhap so loi di hoc muon:'); readln(a);
write('nhap so loi khong deo the:'); readln(b);
write('nhap so loi khong doi mu bao hiem:'); readln(c);
t:=a*5+b*5+c*15;
writeln('tong so diem lop 11a7 bi tru la: ',t);
if t<=10 then writeln('cuoi dot lop se to chuc lien hoan')
else writeln('cuoi dot lop se khong to chuc lien hoan');
readln;
end.
Bạn đăng qua trang toán sẽ được nhiều người giúp hơn , thật đấy !!!
Chương trình thực hiện 10 vòng lặp
Kết quả sau khi thực hiện chương trình:
x=10
y=2
z=4