uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln('tong la: ',s:4:2);
readln;
end.
Một số khái niệm cơ bản của tin học
Các câu hỏi tương tự
Đề :Nhập 1 số n nguyên dương(N<=1000).Tính tổng:S=1+2+....+N giải bằng cách liệt kê
mọi người giúp em với mai em thi rồi
Hãy xác định bài toán ,mô tả thuật toán giải các bài toán sau bằng cách liệt kê hoặc sơ đồ khối, cho ví dụ chứng minhCho N và dãy số nguyên a1,...an, hãy cho biết có bao nhiêu số hạng trong dãy chia hết cho 5Cho N và dãy số nguyên a1,...an, hãy cho biết có bao nhiêu số hạng trong dãy có giá trị là chẵngiúp mk vs cần gấp mai thi rồi mọi người đi qua đừng bơ nha
Đọc tiếp
Hãy xác định bài toán ,mô tả thuật toán giải các bài toán sau bằng cách liệt kê hoặc sơ đồ khối, cho ví dụ chứng minh
Cho N và dãy số nguyên a1,...an, hãy cho biết có bao nhiêu số hạng trong dãy chia hết cho 5Cho N và dãy số nguyên a1,...an, hãy cho biết có bao nhiêu số hạng trong dãy có giá trị là chẵngiúp mk vs cần gấp mai thi rồi mọi người đi qua đừng bơ nha
Câu 1. Nhập số N nguyên dương và dãy N số nguyên từ bàn phím
-in ra dãy số nhập (các số in trên 1 dòng cách nhau bởi dấu cách
-tính tổng các số trong dãy chia hết cho 3, in hết kết quả ra màn hình
GIÚp mik vs ạ!!!!
cho dãy A gồm N số nguyên A1,A2,...,An. hãy viết thuật toán theo phương pháp liệt kê cho các câu hỏi saua, tính tổng các số dương trong dãy Ab,tính tổng bình phương các số chia hết cho 2 trong dãy Ac,đếm số lượng các số là ước của 3d,tính tích các số là số lẻ, số chẵn d, đếm số lượng các số chia hết cho 2 và 5mọi người mỗi người giúp em 1 phần được không ạ:(( em cảm ơn
mỗi người giúp em 1 câu thôi có được không ạ:(( trình bày rõ ràng hộ em nha mai thi rùi ToT
Cho bài toán sau nhập vào một dãy số nguyên gồm N phần tử từ a1,.....an, đếm xem trong dãy đó bao nhiêu số nguyên dương. A. Hãy xác định input output của bài toán. B. Thuật toán để giải bài toán trên như sau b1 nhập n và dãy a1 đến an b2 Dem0 thì Dem
Xem chi tiết
14 tháng 7 2021 lúc 23:42
ĐÁP ÁN VÒNG 1 CUỘC THI TIN HỌC LẦN 3Câu 1(2 điểm)uses crt;var n,dv,ch:integer;beginclrscr;readln(n);if (0n) and (n19) thenbegincase n of0: write(zero);1: write(one);2: write(two);3: write(three);4: write(four);5: write(five);6: write(six);7: write(seven);8: write(eight);9: write(nine);10: write(ten);11: write(eleven);12: write(twelve);13: write(thirteen);14: write(fourteen);15: write(fifteen);16: write(sixteen);17: write(seventeen);18: write(eighteen);19: write(nineteen);end;endelsebegindv:n mod...
Đọc tiếp
ĐÁP ÁN VÒNG 1 CUỘC THI TIN HỌC LẦN 3
Câu 1(2 điểm)
uses crt;
var n,dv,ch:integer;
begin
clrscr;
readln(n);
if (0<=n) and (n<=19) then
begin
case n of
0: write('zero');
1: write('one');
2: write('two');
3: write('three');
4: write('four');
5: write('five');
6: write('six');
7: write('seven');
8: write('eight');
9: write('nine');
10: write('ten');
11: write('eleven');
12: write('twelve');
13: write('thirteen');
14: write('fourteen');
15: write('fifteen');
16: write('sixteen');
17: write('seventeen');
18: write('eighteen');
19: write('nineteen');
end;
end
else
begin
dv:=n mod 10;
ch:=n div 10;
case ch of 2:
write('twenty');
3: write('thirty');
4: write('forty');
5: write('fifty');
6: write('sixty');
7: write('seventy');
8: write('eighty');
9: write('ninety');
end;
if dv>0 then
begin
write('-');
case dv of 1:
write('one');
2: write('two');
3: write('three');
4: write('four');
5: write('five');
6: write('six');
7: write('seven');
8: write('eight');
9: write('nine');
end;
end;
end;
end.
Câu 2(2 điểm)
uses crt;
var a,b,t,bcnn:int64;
begin
readln(a,b);
bcnn:=a*b;
t:=b mod a;
while t<>0 do
begin
t:=a mod b;
a:=b;
b:=t;
end;
bcnn:=bcnn div a;
writeln(a,' ',bcnn);
readln;
end.
Câu 3(4 điểm)
uses crt;
var q,i:longint;
n:array[1..10] of longint;
begin
clrscr;
readln(q);
for i:=1 to q do
readln(n[i]);
for i:=1 to q do
begin
if (n[i] mod 4=0) and (n[i] mod 100<>0) then writeln('YES')
else if n[i] mod 400=0 then writeln('YES')
else writeln('NO');
end;
end.
Câu 4(2 điểm)
uses crt;
var n,p,x,dem:int64;
{----------------------chuong-trinh-con-tim-ucln---------------------}
function ucln(a,b:int64):int64;
var t:int64;
begin
t:=b mod a;
while t<>0 do
begin
t:=a mod b;
a:=b;
b:=t;
end;
ucln:=a;
end;
{---------------------chuong-trinh-chinh---------------------}
begin
readln(n,p);
dem:=0;
for x:=1 to n do
if ucln(x,n)=p then inc(dem);
writeln(dem);
end.
Câu 5(10 điểm) Bài làm của bạn @Hưng Nguyễn Thái
#include<bits/stdc++.h>
using namespace std;
#define ll long long #define mod (ll)(1e7+7)
const ll N = 1000000;
ll lp[N+1];
vector<ll > pr;
void solve()
{ for (ll i=2; i<=N; ++i)
{ if (lp[i] == 0)
{ lp[i] = i; pr.push_back (i);
}
for (ll j=0; j<(ll )pr.size() && pr[j]<=lp[i] && i*pr[j]<=N; ++j)
lp[i * pr[j]] = pr[j];
}
}
ll po(ll a,ll n)
{ ll res=a, ans=1; while(n)
{ if(n%2) ans=ans*res%mod; res=res*res%mod; n/=2;
}
return ans;
}
ll aka(ll p, ll alpha)
{
if(alpha==0) return 1;
if(alpha==1) return (p+1);
if(alpha%2==1) return p*aka(p,alpha-1)+1;
if(alpha%2==0) return (po(p,alpha/2)+1)*(aka(p,alpha/2)-1)+1;
}
ll f(ll n)
{
ll tmp,i=0,so_mu,res=1;
while(pr[i]<=n)
{
tmp=pr[i];
so_mu=0;
while(tmp<=n)
{
so_mu = so_mu+ (n/tmp);
tmp=tmp*pr[i];
}
res=res*(so_mu+1)*(so_mu+2)/2%mod; i++;
}
return res;
}
int main(){ ll n,res; solve();
while(1)
{
cin>>n;
if(n==0) break;
res=f(n);
cout<<res<<'\n';
}
}
để viết số nguyên từ 1 đến 2015 thì cần viết ra tất cả bao nhiêu chữ số (vd để viết số 219 cần viết ra 3 chữ số là 2,1 và 9)
(bạn nào có câu trả lời thì kèm theo giải thích giúp em nhé em đng cần gấp)
21 tháng 7 2021 lúc 21:02
ĐÁP ÁN VÒNG 2 CUỘC THI TIN HỌC LẦN 3:Câu 1(2 điểm)uses crt;var a:array[1..100000]of int64;i,n,x,dem:int64;beginclrscr;readln(n,x);for i:1 to n doread(a[i]);dem:0;for i:1 to n doif xa[i] then inc(dem);writeln(dem);readln;end.Câu 2(2 điểm)uses crt;var n,k,i,dem:int64;a:array[1..1000000]of int64;{-----------------chuong-trinh-con-quick-sort------------------------}procedure qs(d,c:int64);var i,j,x,tam:int64;begini:d;j:c;x:a[(i+j) div 2];repeatwhile a[i]x doinc(i);while a[j]x dodec(j);if ij thenbegi...
Đọc tiếp
ĐÁP ÁN VÒNG 2 CUỘC THI TIN HỌC LẦN 3:
Câu 1(2 điểm)
uses crt;
var a:array[1..100000]of int64;
i,n,x,dem:int64;
begin
clrscr;
readln(n,x);
for i:=1 to n do
read(a[i]);
dem:=0;
for i:=1 to n do
if x=a[i] then inc(dem);
writeln(dem);
readln;
end.
Câu 2(2 điểm)
uses crt;
var n,k,i,dem:int64;
a:array[1..1000000]of int64;
{-----------------chuong-trinh-con-quick-sort------------------------}
procedure qs(d,c:int64);
var i,j,x,tam:int64;
begin
i:=d;
j:=c;
x:=a[(i+j) div 2];
repeat
while a[i]<x do
inc(i);
while a[j]>x do
dec(j);
if i<=j then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
inc(i);
dec(j);
end;
until i>j;
if d<j then qs(d,j);
if i<c then qs(i,c);
end;
{---------------chuong-trinh-chinh------------------}
begin
clrscr;
readln(n);
for i:=1 to n do
read(a[i]);
qs(1,n);
k:=a[n];
dem:=0;
for i:=1 to n do
if k=a[i] then inc(dem);
writeln(dem);
readln;
end.
Câu 3(2 điểm) Bài làm của bạn Hưng Nguyễn Thái
var a,b,c:int64;
begin
read(a,b,c);
if (a+b <= c) and ((c-a-b) mod 2 = 0) then write('Yes')
else write('No');
end.
Câu 4(6 điểm) Bài làm của bạn Quý Lương
#include<bits/stdc++.h>
#define ll long long
using namespace std;
int main()
{
ios_base::sync_with_stdio(false); cout.tie(NULL);
ll n, k;
cin>>n>>k;
ll d=__gcd(n, k);
n/=d; k/=d;
cout << n/k << '.';
n=n%k*10;
ll s=0, t=k;
for (s; t%2==0 or t%5==0; s++) {
if (t%2==0) t/=2;
if (t%5==0) t/=5;
}
for (s; s>0; s--) {
cout << n/k;
n=(n%k) * 10;
}
if (t==1) cout << "(0)";
else {
ll r =10%t;
for (s=1; r!=1; s++) r=r*10 % t;
cout << '(';
for (s; s>0; s--) {
cout << n/k;
n=(n%k)*10;
}
cout << ')';
}
}
Câu 5(8 điểm) Bài làm của bạn Trần Nguyễn Đăng Dương
#include <bits/stdc++.h>
using namespace std;
int n;
long long a[100001];
long long f[100001];
void ans(long long x)
{
int dem=1;
for (long long i=2;i*i<=x;i++)
if (x%i==0)
{
f[dem]=i;
if (i!=sqrt(x))
{
f[dem+1]=x/i; dem+=2;
}
else dem++;
}
f[dem]=x;
sort(f+1,f+dem);
for (int i=1;i<=dem;i++) cout<<f[i]<<endl;
}
int main()
{
ios_base::sync_with_stdio(false);
cin.tie(nullptr); cout.tie(nullptr);
cin>>n;
for (int i=1;i<=n;i++) cin>>a[i];
long long gcd=abs(a[2]-a[1]);
for (int i=3;i<=n;i++)
gcd=__gcd(gcd,abs(a[i]-a[i-1]));
ans(gcd);
}