???

Khoảng cách giữa 2 đoạn văn bản liền nhau được xác định bởi các tham số spacing. Trong đó:

Before: là khoảng cách từ dòng đầu tiên của đoạn văn đến dòng cuối cùng của đoạn phía trước nó.

After: là khoảng cách từ dòng cuối cùng của đoạn văn đến dòng đầu tiên của đoạn phía dưới nó.

var a,b:text;
s:integer;

begin
assign(a,'number.txt');
assign(b,'KQ.txt');
reset(a);
rewrite(b);
while not eof(a) do
begin
read(a,s);
if s mod 3 =0 then
writeln(b,'s=',s,s:3);
end;
close(a);
close(b);
readln
end.

uses crt;

type mang=array[1..10000] of longint;

var n,i,j,max,min,vt,d:longint;

a:mang;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do begin

write('a[',i,'=]');

readln(a[i]);

end;

max:=a[1]; vt:=1;

for i:=2 to n do

if a[i]>max then begin

max:=a[i];

vt:=i;

end;

writeln(' phan tu lon nhat la ',max,' o vi tri ',vt);

min:=a[1]; vt:=1;

for i:=2 to n do

if a[i]<min then begin

min:=a[i];

vt:=i;

end;

writeln(' phan tu nho nhat la ',min,' o vi tri ',vt);

d:=0;

for i:=1 to n do

if a[i] mod 2=0 then inc(d);

writeln(' co ',d,' so chan');

writeln(' co ',n-d,' so le');

write(' chi so phan tu co gia tri bang 10 la: ');

for i:=1 to n do

if a[i]=10 then write(i,' ');

readln;

end.

Bạn ơi! Mình viết code thôi, vì chưa có thời gian nên mình chưa test lại, bạn test lại giúp mình, nếu sai thì báo mình nha! (Bạn cố sữa lỗi trước nhé!)

program abc;

uses crt;

var

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

i, n, d, d2, d5: integer;

begin

clrscr;

write ('Nhap n: ');

readln (n);

for i:=1 to n do

begin

write ('Nhap so thu ', i, ': ');

readln (a[i]);

end;

d:=0; d2:=0; d5:=0;

for i:=1 to n do

begin

if a[i] <0 then d:=d+1;

if a[i] mod 2 = 0 then d2:=d2+1;

if a[i] mod 5 = 0 then d5:=d5+1;

end;

writeln ('Co ', d, ' so am trong mang.');

writeln ('Co ', d2, ' so chia het cho 2.');

writeln ('Co ', d5, ' so chia het cho 5.');

writeln;

writeln ('Nhan Enter de ket thuc chuong trinh!');

readln;

end.

in ra các số chia hết cho 2 và 5

Program So_Nguyen;

Uses crt;

Var x,y:integer;

Begin

Clrscr;

Write ('Nhap so nguyen x,y:');

Readln(x,y);

If x>y then Write('x,y');

else then write('y,x');

Readln;

End.

Prgram Dien_Tich;

Uses crt;

var l,b,c,dt:real;

Begin

Clrscr;

Write(' Nhập đáy lớn và đáy bé:');

Readln(l,b);

dt:= (l+b)*c/2;

Writeln('Diện tích hình thanh là',dt);

readln;

End.

Bạn thử xem đúng không nha!!!

var n,i,k:longint;

f:text;

A:array[1..100000] of longint; {Bạn thay longint bằng những kiểu số nguyên khắc cũng được nhé}

begin

assign(f, 'Vd1.INP');

reset(f);

readln(f,n);

for i:=1 to n do readln(f, A[i]);

close(f);

assign(f, 'Vd2.OUT');

rewrite(f);

for k:=1 to n do if (k mod 2= 0) then

begin write(f, k); write(f, ' '); end;

close(f);

end.

Được, có thể. Bởi vì là những thao tác xử lý trong xâu cũng giống như xử lý mảng 1 chiều gồm những phần tử thuộc kiểu dữ liệu kí tự