trang web này hay ghê.

cho thu nhap cua n can bo hay viet chuong trinh tinh va in ra
a. so nguoi co thu nhap thap hon thu nhap trung binh
b. thu nhap cap nhat
c. chenh lech giua thu nhap cao nhat va thap nhat

Viết chương trình nhập 1 số tư nhiên từ bàn phím và kiểm tra xem có phải là 1 số chính phương hay không?

nhập N bản ghi điểm gồm các trường hoanhdo, tung do , khoang cach (khoảng cách từ điểm đó đến gốc tọa độ) ghi vào mảng rồi sắp xếp theo chiều giảm dần của khoảng cách và hiện ra màn hình

Viet chuong trinh Tim số có dạng 25x4xy biết nó vừa chia hết cho 5 vừa chia hết cho 9

nhập số hạng đầu tiên u , công bội q và số số hạng n của cấp số nhân hiện cấp số đó.

Nhập số hạng đầu tiên u, công sai d và số số hạng n của cấp số cộng hiện cấp số đó.

Nhập số hạng đầu tiên u, công sai d và số số hạng n của cấp số cộng hiện cấp số đó.
cho trước số tự nhiên n, viế chương trình in ra màn hình số nguyên tố lớn nhất ko vượt quá N.

Mình có một số bài tập nhờ các Anh, Chị và các bạn giải giúp mình. Chân thành cảm ơn.
Bài 1: Viết chương trình nhập vào một số nguyên không âm ( số thấp phân). In ra màn hình số thập lục phân tương ứng. Ví dụ: nhập vào số 276, trên màn hình xuất hiện số thập lục phân tương ứng là 1A4
Bài 2: Viết chương trình nhập vào hai xâu S và T, đếm số lần xâu S xuất hiện trong xâu T. In kết quả ra màn hình.
Ví dụ:
Nhập xâu S:
aba
Nhập xâu T:
ababaafabacaabaab
Kết quả in ra màn hình số lần xạu S xuất hiện trong xâu T là: 4
Bài 3: Viết chương trình nhập vào tên một file văn bàn. Kiểm tra file này có tồn tại trong đĩa không? Nếu có, in nội dung của file từ dòng thứ m đến dòng thứ n, trong đó m, n là hai số nguyên dương bất kì được nhập từ bàn phím khi thực hiện chương trình
Một lần nữa xin Kính chúc sức khỏe và chân thành cảm ơn các Anh Chị và các bạn.

bài 2:
program kiemtraxau;
uses crt;
var
s,t: string[50];
vt,kt,i,ds,dt: integer;
Begin
clrscr;
Write('Nhap vao xau S: ');
readln(s);
write('Nhap vao xau T: ');
readln(t);
ds:=length(s); {đặt ds là độ dài xâu S}
dt:=length(t);{đặt dt là độ dài xâu T}
for i:=1 to ds do { chuyển các ký tự của xâu S và T thành chữ hoa}
s[i]:=upcase(s[i]);
for i:=1 to dt do
t[i]:=upcase(t[i]);
kt:=0; {biến kiểm tra có hay không xâu S trong T}
for i:=1 to dt do
begin
vt:=pos(s,t);
if vt<>0 then
begin
delete(t,vt,ds); {xóa xâu S có trong T }
kt:=kt+1;
end;
end;
if kt<>0 then
writeln('Xau S xuat hien ',kt,' lan trong xau T')
else
writeln('khong co xau S trong xau T');
readln;
end.
Đây là CT mình viết đã kiểm tra, tuy hơi dài nhưng cụ thể. ai có cách ngắn hơn xin đóng góp