Program bai1;

uses crt;

var a: array[1..1000] of integer;

Z,i,j,n: integer;

begin

clrscr;

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

for i:= 1 to n do

begin

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

end;

for i:= 1 to n-1 do

for j:= i+1 to n do

if a[i] < a[j] then

begin

Z:=a[i];

a[i]:=a[j];

a[j]:=Z;

end;

writeln('Day Da Sap Xep La :' );

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

readln;

end.

* x >=(m+5)/(2*a).

2.

program bai2;

uses crt;

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

i,n: integer;

tong: real;

begin

clrscr;

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

for i := 1 to n do

begin

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

end;

tong:=0;

for i:= 1 to n do

if (a[i] mod 2 = 0 ) or ( a[i] mod 3 = 0) then

tong:=tong+a[i];

write('tong cac so chia het cho 2 hoac 3 = ' ,tong :4:2);

readln;

end.

1.

Program bai1;

uses crt;

var a,b,c: integer;

begin

clrscr;

write('nhap canh a ='); readln(a);

write('nhap canh b ='); readln(b);

write('nhap canh c ='); readln(c);

if (a+b<c) or (b+c<a) and (c+a <b) then

writeln('khong phai la 3 canh cua tam giac ') else

writeln('la 3 canh cua tam giac ');

readln;

end.

Program bai1;

uses crt;

var a,b: longint;

begin

clrscr;

write('nhap so thu nhat = '); readln(a);

write('nhap so thu hai ='); readln(b);

if a > b then writeln(a , ' la so lon nhat ');

if a < b then writeln(b , 'la so lon nhat ');

if a = b then writeln('khong co so nao lon nhat ');

readln;

end.

20100

nho tick nha

5.

Program bai5;

uses crt;

var t,v,a,dtb: real;

begin

clrscr;

repeat

write('nhap diem toan ='); readln(t);

write('nhap diem van ='); readln(v);

write('nhap dien anh ='); readln(a);

until (t>=0) and (v >=0) and (a >=0);

dtb:=(t+v+a)/3;

writeln('dien trung binh la :' ,dtb:4:2);

if dtb <=20 then writeln('khong dau lop 10 ') else

writeln('dau lop 10 ');

readln;

end.

không biết có đúng không nữa.

Số các số chia hết cho 2 nhỏ hơn 2000 là: (1998-2):2+1 = 999 (số)

Số các số chia hết cho 5 nhỏ hơn 2000 là: (1995-5):5 +1 = 399 (số)

Số các số chia hết cho 2 nhưng không chia hết cho 5 nhỏ hơn 2000 là: 999 - 399 = 600 (số)

3.

program bai3;

uses crt;

var a,b: longint;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); readln(b);

if a>b then writeln('a lon hon b ') else

writeln('a nho hon b ');

readln;

end.

2.

program bai2;

uses crt;

var n : longint;

begin

clrscr;

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

if n >= 0 then write(n , ' la so nguyen duong')

else write(n , ' la so nguyen am ');

readln;

end.