uses crt;

const fi='so.inp';

var f1:text;

a,b:integer;

begin

clrscr;

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

while not eof(f1) do 

 begin

readln(f1,a,b);

writeln((a+b)/2:4:2);

end;

close(f1);

readln;

end.

Tham khảo:

Khai báo. Biến kiểu xâu có thể khai báo như sau: ...

Các thao tác xử lí xâu. ...

Một số ví dụ

- Một xâu là một dãy các kí tự (trong bảng mã ASCII), có thể coi xâu như một mảng một chiều mà mỗi phần tử là một kí tự. Số lượng kí tự trong một xâu được gọi là độ dài của xâu. Xâu có độ dài bằng 0 là xâu rỗng.
...Khai báo. Biến kiểu xâu có thể khai báo như sau: ..
.Các thao tác xử lí xâu. ...

 Một số ví dụ              

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t,nn,x;

int main()

{

freopen("lop11a.inp","r",stdin);

freopen("kq.txt","w",stdout);

cin>>n;

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

nn=LLONG_MAX;

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

if (100<=a[i] && a[i]<=999)

{

nn=min(nn,a[i]);

}

cout<<nn<<endl;

t=0;

while (nn>0)

{

x=nn%10;

t=t+x;

nn=nn/10;

}

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t,nn,x;

int main()

{

freopen("lop11a.inp","r",stdin);

freopen("kq.txt","w",stdout);

cin>>n;

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

nn=LLONG_MAX;

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

if (100<=a[i] && a[i]<=999)

{

nn=min(nn,a[i]);

}

cout<<nn<<endl;

t=0;

while (nn>0)

{

x=nn%10;

t=t+x;

nn=nn/10;

}

cout<<t;

return 0;

}

thi ???

Câu 21: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,nn;

int main()

{

cin>>n;

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

nn=LLONG_MAX;

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

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

if (nn==a[i]) 

{

cout<<i;

break;

}

return 0;

}

bạn ơi có thể viết sang dạng pascal đc ko ạ

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

freopen("input.inp","r",stdin);

freopen("output.inp","w",stdout);

cin>>a>>b>>c;

if (a+b>c && a+c>b && b+c>a && a>0 && b>0 && c>0) cout<<"tao thanh tam giac";

else cout<<"khong tao thanh tam giac";

return 0;

}