uses crt;

var

s:string;

begin

write('nhap xau: '); readln(s);

writeln('do dai xau la: ',length(s));

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem1,dem2;

int main()

{

cin>>n;

dem1=0;

dem2=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2!=0) dem1++;

else dem2++;

}

cout<<dem1<<" "<<dem2;

return 0;

}

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,j;

bool kt;

int main()

{

cin>>n;

for (i=2; i<=n; i++)

{

kt=true;

for (j=2; j*j<=i; j++)

if (i%j==0) kt=false;

if (kt==true) cout<<i<<" ";

}

return 0;

}

Câu 6: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++) t=t+i;

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,nn,t;

int main()

{

cin>>n;

nn=LLONG_MAX;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

t+=x;

nn=min(nn,x);

}

cout<<nn<<" "<<t;

return 0;

}

uses crt;

const fi='kq.txt';

var a:array[1..15]of real;

i,n:integer;

f1:text;

begin

clrscr;

n:=15;

for i:=1 to n do readln(a[i]);

assign(f1,fi); rewrite(f1);

for i:=1 to n do 

  begin

 if (i mod 5=0) then writeln(f1)

else write(f1,a[i],' ');

end;

close(f1);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[200],n,i,k,dem,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

cin>>k;

dem=0;

t=0;

for (i=1; i<=n; i++) 

if (a[i]%k!=0)

{

cout<<a[i]<<" ";

t=t+a[i];

dem++;

}

cout<<endl;

cout<<"Trung binh cong cac so khong chia het cho k la: "<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}