Program HOC24;
var f1,f2: string;
i,t: byte;
code: integer;
begin
write('Nhap xau: '); readln(f1);
for i:=1 to length(s1) do
begin
val(s[i],t,code);
if t mod 5=0 then write(t,' ');
end;
readln
end.
Viết chương trình nhập vào bàn phím 2 xâu bất kì so sánh độ dài 2 xâu đưa ra màn hình xâu ngắn hơn sau đó chuyển xâu ngắn hơn sang dạng chữ hoa
Câu 1 .Viết chương trình sử dụng chương trình con xác định tham số có trong chương trình con X Câu 2 lập trình nhập 2 xâu không quá 100 và so sánh 2 xâu
Giả sử trong ổ đĩa E có một tệp tên DKT, bên trong tệp DKT chứa một dãy ký tự chữ hoa. Các bạn hãy viết chương trình đưa ra màn hình xâu ký tự đó với chữ thường.
Viết hàm để tạo 1 xâu , là xâu được viết theo thứ tự ngược lại của xâu S
viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình
Viết hàm để tính sô lần của xâu S1 xuất hiện trong xâu S2 .
2. Sử dụng hàm và thủ tục để viết chương trình tính tổng các số chẵn, lẻ trong xâu
Viết chương trình nhập từ phím N số nguyên. Tính trung bình cộng các số đó, đưa kết quả ra ra Tệp Ketqua.txt
viết phương trình nhập vào một số n vào dãy A1 A2...An. Tính và đưa ra màn hình tổng của số đầu và số cuối có mặt trong dãy
