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 n,i:longint;
kt:boolean;
begin
clrscr;
readln(n);
if (n<2) then writeln('Nhap lai')
else
begin
kt:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then writeln('la so nguyen to')
else writeln('khong la so nguyen to');
end;
readln;
end.
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
if (n>=0) and (n<=100) then
begin
s:=0;
for i:=1 to n do
s:=s+(i/(i+1));
writeln('tong la: ',s);
end
else writeln('vui long nhap lai');
readln;
end.
uses crt;
var n,i,t:int64;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<1000000000);
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');
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.
1:
#include <bits/stdc++.h>
using namespace std;
long long a[100],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cout<<"Day ban dau la: "<<endl;
for (i=1;i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
sort(a+1,a+n+1);
cout<<"Day tang dan la: "<<endl;
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
Ý tưởng: Tính n!. Xong rồi đổi kết quả đó ra một xâu(hay còn gọi là một chuỗi). Sau đó đếm số 0 như bình thường
uses crt;
var n,i,d,dem:integer;
s:int64;
st:string;
begin
clrscr;
write('n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
str(s,st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]='0' then inc(dem);
writeln('so chu so 0 tan cung cua ',n,'!',' la: ',dem);
readln;
end.
Bài 2:
uses crt;
var s,a:integer;
begin
clrscr;
s:=0;
a:=0;
repeat
a:=a+1;
s:=s+a;
until s>500;
writeln(s);
readln;
end.
Mik học tin cx đc nhưng lâu quá rùi nên cx quên rùi
Hic!