#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

cin>>n;

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

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

if (a[i]%2==0) cout<<a[i]<<" o vi tri thu "<<i<<endl;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[15],i,n=15,s,t;

int main()

{

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

s=1;

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

if (a[i]%2==0)

{

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

s*=a[i];

}

cout<<endl;

cout<<"Tich cac so chan la: "<<s<<endl;

t=0;

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

if (a[i]<0) t=t+a[i]*a[i];

cout<<t;

return 0;

}

tick cho e dc ko

#include <bits/stdc++.h>

using namespace std;

double s,a;

int i,n;

int main()

{

cin>>a;

s=0;

n=0;

while (s<=a) 

{

n=n+1;

s=s+1/(n*1.0);

}

cout<<n;

return 0;

}

Lại C,C++ tiếp 

#include <bits/stdc++.h>

using namespace std;

long long i,n,dem;

int main()

{

cin>>n;

dem=0;

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

if (i%2==1 && i%5==0) dem++;

cout<<dem;

return 0;

}

Đó là C hoặc C++ rồi làm pascal cơ mà

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do 

  if st[i]=' ' then 

begin

write(i:4);

break;

end;

readln;

end.

_{tham khảo}

_{uses crt;}

_{var a:string;}

_{i,d,dem:integer;}

_begin

_clrscr;

_{write('Nhap xau a:'); readln(a);}

_dem:=0;

_{d:=length(a);}

_{for i:=1 to d do}

_{if a[i]=' ' then inc(dem);}

_{writeln(dem);}

_readln;

_end.

tks b

Làm bằng pascal thì những bài như thế này thì test lớn chạy không nổi đâu bạn

#include <bits/stdc++.h>

using namespace std;

long long n,a,b;

int main()

{

cin>>n;

a=1;

while (pow(a,3)<=n) 

{

a++;

}

if (pow(a,3)==n) cout<<"YES";

else cout<<"NO";

cout<<endl;

b=1;

while (pow(5,b)<=n) do b++;

if (pow(5,b)==n) cout<<"YES";

else cout<<"NO";

cout<<endl<<pow(n,n)%7;

return 0;

}

mik chỉ làm mỗi câu là một bài thôi bạn

#include <bits/stdc++.h>

using namespace std;

double a[100];

int i,n;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

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

swap(a[i],a[n+1-i]);

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

bn ơi bn làm bằng pascal đc ko ạ, mik cần cả hai cái lun