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;
var a:integer;
begin
clrscr;
readln(a);
if a mod 2=0 then write(a,' la so chan')
else write(a,' la so le');
readln;
end.
Program hotrotinhoc;
var i,n,s,k,max,n1: longint;
begin
write('Nhap N='); readln(n);
max:=0; n1:=n;
while n<>0 do
begin
k:=n mod 10;
s:=s*10+k;
n:=n div 10;
if k>max then max:=k;
end;
writeln('Chu so lon nhat cua so tu nhien vua nhap la :',max);
If s=n1 then write('La so doi xung') else write('Khong phai so doi
xung');
readln
end.
uses crt;
var n,i,d,x,ln,kt:word;
st:string;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
d:=length(st);
for i:=1 to d do
val(st[i],a[i],x);
ln:=0;
for i:=1 to d do
if ln<a[i] then ln:=a[i];
writeln('chu so lon nhat trong so ',n,' la: ',ln);
{-----------------------kiem-tra-doi-xung----------------------------}
kt:=0;
for i:=1 to d do
if a[i]<>a[d+1-i] then kt:=1;
if kt=0 then writeln('day la so doi xung')
else writeln('day khong la so doi xung');
readln;
end.
Xem video sau để biết câu trả lời:
video chứng minh + lời giải
Thuật toán
B1: Nhập số nguyên a, nhập số nguyên b;
B2: Nếu a<b thì in giá trị b ra màn hình, ngược lại nếu a>b in a ra màn hình, ngược lại nếu a=b thì in ra thông báo 2 giá trị bằng nhau;
B3: Kết thúc