Viết chương trình nhập vào 1 xâu bất kì in ra màn hình số lượng kí tự A có trong xâu
|
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat. Show uses crt; var s : string; i, d1, d2: integer; begin clrscr; d1 := 0; d2 := 0; write('nhap xau ki tu : '); readln(s); for i:= 1 to length(s) do begin if s[i] in ['A'..'Z'] then d1 := d1 + 1; if s[i] in ['a'..'z'] then d1 := d1 + 1; if s[i] in ['1'..'9'] then d2 := d2 + 1; end; writeln(d1,' ki tu chu cai '); writeln(d2,' ki tu chu so '); delete(s,1,5); writeln('xau sau khi xoa : ', s); readln end.
Var a: string; i, Dem: integer;Begin writeln(‘nhap xau:’); Readln(a); Dem:=0; For i:=1 to length(a) do If (‘0’<=a[i]) and (a[i]<=’9’) then Dem:= Dem+1; Writeln(Dem); Readln (adsbygoogle = window.adsbygoogle || []).push({}); End.CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu lệnh Reset( Xem đáp án » 19/06/2021 6,522
Viết các câu lệnh để ghi dữ liệu vào tệp KQ.TXT 2 biến C, V (sử dụng biến tệp f). Xem đáp án » 19/06/2021 2,477
Xâu rỗng là xâu có độ dài bằng: Xem đáp án » 19/06/2021 2,279
Câu lệnh để gắn tên tệp ‘bai1.txt’, cho biến tệp f là: Xem đáp án » 19/06/2021 2,275
Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Nguyen’ Xem đáp án » 19/06/2021 1,829
Chương trình con gồm có: (chọn câu trả lời đúng nhất) Xem đáp án » 19/06/2021 1,393
Cho đoạn chương trình sau: s1 := ‘123’; s2 := ‘abc’; insert (s2 , s1 , 1); write(s1); Kết quả in ra màn hình là: Xem đáp án » 19/06/2021 1,013
Câu lệnh Var Xem đáp án » 19/06/2021 861
Cho đoạn chương trình sau: s := ’ABCDEF’; delete(s, 3, 2); insert(‘XYZ’, s, 4); write(s); Kết quả in ra màn hình là: Xem đáp án » 19/06/2021 852
Câu lệnh dùng để ghi kết quả vào tệp văn bản có dạng: Xem đáp án » 19/06/2021 842
Hãy chọn thứ tự hợp lí nhất khi thực hiện các thao tác đọc dữ liệu từ tệp : Xem đáp án » 19/06/2021 832
Cho đoạn chương trình sau: s1 := ‘abc’; s2 := ‘1234’; if length(s1) > length(s2) then writeln(s1) else writeln(s2); Kết quả in ra màn hình là: Xem đáp án » 19/06/2021 792
Để gắn tên tệp cho tên biến tệp ta sử dụng câu lệnh: Xem đáp án » 19/06/2021 701
Cho đoạn chương trình sau: s:= ‘edcba’; For i:= length(s) downto 1 do write(s[i]); Kết quả in ra màn hình là: Xem đáp án » 19/06/2021 650
Cho đoạn chương trình sau: s := ‘1001010’; write(pos(‘011’, s)); Kết quả in ra màn hình là: Xem đáp án » 19/06/2021 633
1.Viết chương trình nhập 1 xâu bất kì từ bàn phím. Hãy in ra màn hình số lượng các kí tự trắng và vị trí của các kí tự trắng trong xâu ? 2.Viết chương trình nhập 1 xâu bất kì từ bàn phím. Hãy in ra màn hình số lượng các kí tự không phải là kí tự trắng và vị trí của các kí tự đó trong xâu ? 3. Cho dãy số nguyên A gồm N số nguyên dương a1,a2,...,an (trong đó N<=50, 0<=ai<=32767). Hãy viết chương trình thực hiện các công việc sau: a) Nhập dữ liệu cho dãy số A b) In ra màn hình dãy số A cần nhập. c) Tìm giá trị lớn nhất (Max) trong dãy A d) In ra màn hình vị trí của giá trị lớn nhất trong dãy A e) Tìm giá trị nhỏ nhất ( Min) trong dãy A f) In ra màn hình vị trí của giá trị nhỏ nhất trong dãy A. MONG MỌI NGƯỜI GIÚP MÌNH VỚI Ạ :(((( MAI MÌNH THI HỌC KÌ RỒI. CẦN GẤP Ạ !!! MÌNH CẢM ƠN !!! Các câu hỏi tương tự
Viết chương trình nhập vào 1 xâu bất kì, xuất ra màn hình số lượng kí tự trong xâu đã nhập. mọi người giúp mk bài này với. Các câu hỏi tương tự
|
