so lon nhat tu 1 den 500 chia het cho 6 la: 498

so be nhat tu 1 den 500 chia het cho 6 la: 6

co: (498-6) : 6 + 1 = 83 so

tick nha

********************************************************

--Lệnh write và write cùng là lệnh xuất dữ liệu ra màn hình nhưng lệnh writeln thì in dữ liệu ra màn hình hình rồi đưa con trỏ xuống dòng còn write thì không đưa con trỏ xuống dòng

--Lệnh readln và read cùng là lệnh đọc giá trị của 1 biến nào đó nhưng lệnh readln đọc rồi đồng thời cũng đưa con trỏ xuống dòng còn read thì không đưa con trỏ xuống dòng

USES crt;

VAR a,b:integer;

BEGIN

clrscr;

write('Nhap so thu nha:'); readln(a);

write('Nhap so thu hai:'); readln(b);

write('Tich cua 2 so do la:',a*b);

readln;

END.

USES crt;

VAR n,m,p,q:integer;

Function UCLN(x,y:integer):integer;

Var i,t:integer;

Begin

for i:=1 to x do

if (x mod i=0) and (y mod i =0) then t:=i;

UCLN:=t;

End;

BEGIN

clrscr;

write('Nhap n:'); readln(n);

write('Nhap m:'); readln(m);

p:=n div UCLN(n,m); q:=m div UCLN(n,m);

write('Cap (p,q) la:',p,' ',q);

readln;

END.

USES crt;

VAR i:integer; s1,s:string;

BEGIN

clrscr;

s1:='';

write('Nhap chuoi:'); readln(s);

for i:=1 to length(s) do

begin

if s[i] in ['0'..'9'] then

else s1:=s1+s[i];

end;

write('chuoi sau khi xoa la:',s1);

readln;

END.

readln trên end dùng để ngừng chương trình để xem kết quả

:4:2 có nghĩa là cách 4 con trỏ và lấy 2 phần thập phân

VD: write(0.362:4:2) sẽ in ra: 0.36

Dùng ê ke để nhận biết góc vuông của hình bên rồi đánh dấu góc vuông (theo mẫu):

Nêu cách lấy thư và gửi báo cáo của chú Hai Long. Vì sao chú làm như vậy ?

USES crt;

VAR a,b,c:integer;

PROCEDURE xet(x,y,z:integer);

Begin

if (x+y>z) or (y+z>x) or (z+x>y) then

writeln('Do la ba canh cua tam giac')

else writeln('Ba canh do khong phai ba canh tam giac');

End;

{.------------------------------------}

BEGIN

clrscr;

write('Nhap a:'); readln(a);

write('Nhap b:'); readln(b);

write('Nhap c:'); readln(c);

xet(a,b,c);

readln;

END.