Uses crt;
Var st: string;
I,d,dem:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
Dem:=0;
For i:=1 to d do
If (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);
Writeln(dem);
Readln;
End.
Viết đoạn chương trình nhập vào xâu S và kiểm tra xem xâu có bao nhiêu ký tự cách
viết chương trình tính tổng 3 số thực yêu cầu trong chương trình có sử dụng hàm tính tổng của hai số thực
1 Viết chương trình nhập mạng một chiều n tính và in ra màn hình tổng số lẻ 2 viết chương trình nhập vào một xâu từ văn phím viết chương trình chuẩn hóa xâu bằng cách xóa các ký tự trống ở đâu xâu và cuối xâu 3 Viết các thao tác và lần tương ứng cần thực hiện để đọc một giá trị từ tệp ‘ DL.TXT ‘ Ghi giá trị vừa đọc vào tệp ‘KQ.TXT’ Giúp mình với ạ
Lập chương trình nhập vào một xâu. Đưa ra màn hình 3 kí tự cuối cùng của xâu đó
tạo mảng a gồm n phần tử (n<= 100) số nguyên viết chương trình tính và in ra màng hình tổng và số lượng phần tử chẵn trong mảng
viết thủ tục ( procedure) thực hiện viện hoán đổi 2 số nguyên a,b
Viết chương trình tính tổng sau S = 2 + 5 + 8 + …
Viết chương trình tìm ước nguyên tố của một số nguyên dương n nhập từ bàn phím
Cho một xâu kí tự S không quá 255 kí tự gồm kí tự chữ cái và kí tự chữ số. Hãy in ra xâu vửa nhập và tính tổng các kí tự chữ số có trong xâu. Ngược lại nếu xâu chỉ gồm kí tự chữ cái hoặc chỉ gồm kí tự chữ số thì in ra “Sai yeu cau! Khong thuc hien!”.
- Dữ liệu vào: Cho trong file XAU.INP gồm 1 dòng duy nhất là xâu S.
- Dữ liệu ra: Ghi vào file XAU.OUT theo cấu trúc: Gồm 2 dòng:
+ Dòng thứ nhất: Ghi ra xâu vừa nhập.
+ Dòng thứ hai ghi tổng các kí tự chữ số của xâu S.
