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 x,n,i:integer;
lt:longint;
begin
clrscr;
write('co so x='); readln(x);
write('so mu n='); readln(n);
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt);
readln;
end.
bn tự khai báo nhé!!
begin
clrscr;
write('nhap n=');readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('tong s la:',s);
readln
end.
XONG!!!
Bạn quên phần lưu ý rồi, nếu họ nhập cả trăm ngàn thì bị lỗi, longint bị hạn chế kí tự
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long x,n;
int main()
{
cout<<x<<n;
cout<<pow(x,n);
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,ln;
int main()
{
ln=LLONG_MIN;
cin>>n;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
}
cout<<ln;
return 0;
}
bạn làm vậy vừa không đúng vừa phức tạp nha bạn ơi
giả sử như lũy thừa của 2 lớn nhất theo yêu cầu của đề là 1 (2^0)
ví dụ mình nhập vào số 1 số 3 chẳng hạn thì máy tính không in ra gì cả nhưng mà theo yêu cầu của đề là in ra số 1 có phải không ạ
Bài 1:
uses crt;
var i,n:integer;
p:int64;
begin
clrscr;
write('n='); readln(n);
if n>=1 then
begin
p:=1;
for i:=1 to n do
p:=p*i;
writeln('tich P=',p);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 2:
uses crt;
var x,n,i:integer;
lt:int64;
begin
clrscr;
write('nhap co so x='); readln(x);
write('nhap so mu n='); readln(n);
if (x>0) and (n>0) then
begin
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 3:
uses crt;
var i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan hao')
else writeln(n,' khong la so hoan hao');
end
else writeln('vui long nhap lai');
readln;
end.
Bài 4:
uses crt;
var i,n,kt:integer;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end
else writeln('vui long nhap lai');
readln;
end.
Bài 5:
uses crt;
var i,n,t,j:longint;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
for i:=2 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i,' ')
end;
end
else writeln('vui long nhap lai');
readln;
end.
Bài 6:
uses crt;
var i,n,kt,j:longint;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i,' ')
end;
end
else writeln('vui long nhap lai');
readln;
end.
Bài 1:
uses crt;
var i,n:integer;
p:int64;
begin
clrscr;
write('n='); readln(n);
if n>=1 then
begin
p:=1;
for i:=1 to n do
p:=p*i;
writeln('tich P=',p);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 2:
uses crt;
var x,n,i:integer;
lt:int64;
begin
clrscr;
write('nhap co so x='); readln(x);
write('nhap so mu n='); readln(n);
if (x>0) and (n>0) then
begin
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 3:
uses crt;
var i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan hao')
else writeln(n,' khong la so hoan hao');
end
else writeln('vui long nhap lai');
readln;
end.
Bài 4:
uses crt;
var i,n,kt:integer;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end
else writeln('vui long nhap lai');
readln;
end.
Bài 5:
uses crt;
var i,n,t,j:longint;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
for i:=2 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i,' ')
end;
end
else writeln('vui long nhap lai');
readln;
end.
Bài 6:
uses crt;
var i,n,kt,j:longint;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i,' ')
end;
end
else writeln('vui long nhap lai');
readln;
end.
uses crt;
var x,k,i,t,lt,m,j,n:integer;
st:string;
a:array[1..255]of integer;
begin
clrscr;
write('nhap n='); readln(n);
writeln('Cac so Amstrong nho hon hoac bang ',n,' la: ');
for x:=1 to n do
begin
str(x,st);
k:=length(st);
for i:=1 to k do
val(st[i],a[i],m);
t:=0;
for i:=1 to k do
begin
lt:=1;
for j:=1 to k do
lt:=lt*a[i];
t:=t+lt;
end;
if t=x then write(x:4);
end;
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,nn;
int main()
{
cin>>n;
nn=LLONG_MAX;
for (i=1; i<=n; i++)
{
cin>>x;
nn=min(nn,x);
}
cout<<nn;
return 0;
}
program xmun;
uses crt;
var i,x,n,kq:longint;
Begin
clrscr;
writeln('Chuong trinh tinh X^n');
write('X=');readln(x);
write('n=');readln(n);
kq:=1;
for i:=1 to n do
kq:=kq*x;
writeln(x,'^',n,'=',kq);
readln;
end.
uses crt;
var n,x,i:integer;
lt:longint;
begin
clrscr;
write('n='); readln(n);
write('x='); readln(x);
lt:=1;
for i:=1 to x do
lt:=lt*n;
writeln(x,'^',n,'=',lt);
readln;
end.
uses crt;
\n\nvar x,n,i:integer;
\n\nlt:real;
\n\nbegin
\n\nclrscr;
\n\nwrite(\'nhap co so x:\'); readln(x);
\n\nwrite(\'nhap so mu n:\'); readln(n);
\n\nlt:=1;
\n\nfor i:=1 to n do
\n\nlt:=lt*x;
\n\nwriteln(x,\'^\',n,\'=\',lt:4:0);
\n\nreadln;
\n\nend.
\n