uses crt;

const fi='input.txt';

fo='output.txt';

var f1,f2:text;

a,b:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

if (a=0) and (b=0) then writeln(f2,'Phuong trinh co vo so nghiem');

if (a<>0) then writeln(f2,-b/a:4:2);

if (a=0) and (b<>0) then writeln(f2,'Phuong trinh vo nghiem');

close(f1);

close(f2);

end.

nhanh mn ơi

uses crt;

var n,i:integer;

s:real;

//chuongtrinhcon

function gthua(n:integer):real;

var gt:real;

i:integer;

begin 

gt:=1; 

for i:=1 to n do    

gt:=gt*i; 

 gthua:=gt;

end;

//chuongtrinhcon

function lthua(n,x:integer):real;

var lt:real;

i:integer;

begin

lt:=1;

for i:=1 to x do lt:=lt*x;

lthua:=lt;

end;

//chuongtrinhchinh

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do

s:=s+(lthua(i,i)/gthua(i));

writeln(s:4:2);

readln;

end.

Bạn gõ ra hoặc chụp ví dụ đó lên nhé, mọi người sẽ dễ trả lời giúp bạn hơn.^^

#include <bits/stdc++.h>

using namespace std;

long long a[150],i,s,n,nn;

int main()

{

cin>>n;

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

s=1;

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

if (a[i] %2!=0 && a[i]%3==0) s=s*a[i];

cout<<s<<endl;

nn=a[1];

for (i=1; i<=n; i++) nn=min(nn,a[i]);

for (i=n; i>=1; i--) 

if (nn==a[i]) 

{

cout<<i<<endl;

break;

}

sort(a+1,a+n+1);

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

return 0;

}

uses crt;

var n,k,i,dem:integer;

a:array[1..100]of integer;

begin

clrscr;

readln(n,k);

for i:=1 to n do 

readln(a[i]);

dem:=0;

for i:=1 to n do 

  if a[i]>k then dem:=dem+1;

writeln(dem);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double b[100];

int i,n;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) if (b[i]>0) cout<<b[i]<<" ";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[150],i,n;

int main()

{

cin>>n;

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

sort(a+1,a+n+1);

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

return 0;

}

Đề thiếu rồi bạn

const fi='in,txt';

fo='out.txt';

var f1,f2:text;

begin

clrscr;

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);