Viết chương trình nhập vào một xâu ký tự dem và in ra màn hình số kí tự có trong xâu

Top 1 ✅ Viết chương trình nhập vào một xâu S. In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11” nam 2022 được cập nhật mới nhất lúc 2021-12-16 03:58:06 cùng với các chủ đề liên quan khác

Viết chương trình nhập ѵào một xâu S.In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11”

Hỏi:

Viết chương trình nhập ѵào một xâu S.In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11”

Viết chương trình nhập ѵào một xâu S.In ra màn hình xâu vừa nhậpa) Đếm số ký tự ở trong xâub) In ra màn hình độ dài xâu Sc) Ghép xâu S với “Lop11”.In ra màn hình kết quả

(Mọi người giúp mk với ạ.NGÔN NGỮ PASCAL)

Đáp:

thanhmai:

uses crt;var s:string;begin      clrscr;      write(‘Nhap xau S: ‘); read(s);      writeln(‘So ky tu o trong xau: ‘,length(s));      writeln(‘Do dai xau S: ‘,length(s));      writeln(‘Xau ket qua: ‘,s + ‘Lop11’);      readln

end.

thanhmai:

uses crt;var s:string;begin      clrscr;      write(‘Nhap xau S: ‘); read(s);      writeln(‘So ky tu o trong xau: ‘,length(s));      writeln(‘Do dai xau S: ‘,length(s));      writeln(‘Xau ket qua: ‘,s + ‘Lop11’);      readln

end.

thanhmai:

uses crt;var s:string;begin      clrscr;      write(‘Nhap xau S: ‘); read(s);      writeln(‘So ky tu o trong xau: ‘,length(s));      writeln(‘Do dai xau S: ‘,length(s));      writeln(‘Xau ket qua: ‘,s + ‘Lop11’);      readln

end.

Viết chương trình nhập ѵào một xâu S.In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11”

Xem thêm : ...

Vừa rồi, bắp.vn đã gửi tới các bạn chi tiết về chủ đề Viết chương trình nhập vào một xâu S. In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11” nam 2022 ❤️️, hi vọng với thông tin hữu ích mà bài viết "Viết chương trình nhập vào một xâu S. In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11” nam 2022" mang lại sẽ giúp các bạn trẻ quan tâm hơn về Viết chương trình nhập vào một xâu S. In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11” nam 2022 [ ❤️️❤️️ ] hiện nay. Hãy cùng bắp.vn phát triển thêm nhiều bài viết hay về Viết chương trình nhập vào một xâu S. In ra màn hình xâu vừa nhập a) Đếm số ký tự ở trong xâu b) In ra màn hình độ dài xâu S c) Ghép xâu S với “Lop11” nam 2022 bạn nhé.

program oken;uses crt;var s: string;    i,dem: byte;begin    clrscr;    write('Nhap xau: '); readln(s);    write('Cac ky tu la chu thuong trong xau: ');    for i:=1 to length(s) do        if (s[i] in ['a'..'z']) then            begin                dem:=dem+1;                write(s[i],' ');            end;    writeln;    writeln('So ky tu la chu thuong trong xau: ',dem);    readln;

end.

Viết chương trình thực hiện: Nhập vào từ bàn phím một xâu kí tự \(S\) (gồm kí tự \(a \rightarrow z\), không chứa kí tự dấu cách và có không quá 255 kí tự) và in ra màn hình số lượng các kí tự chỉ xuất hiện đúng 1 lần trong xâu \(S\).

Dữ liệu vào

Kết quả

  • Số lượng các kí tự chỉ xuất hiện đúng 1 lần trong xâu \(S\)

Ví dụ

Input

abbacdmedc

Output

2

HSG9 2018-2019

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.

Các câu hỏi tương tự

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là chữ cái (chữ thường) có trong xâu.

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là dấu cách có trong xâu.

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là số có trong xâu.

Var a: string;

 I,dem: integer;

Begin

 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

End.

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là dấu cách có trong xâu.

Các câu hỏi tương tự

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là chữ cái (chữ thường) có trong xâu.

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là số có trong xâu.

Var a: string;

 I,dem: integer;

Begin

 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

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

End.

CÂU HỎI HOT CÙNG CHỦ ĐỀ

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 » 09/07/2020 3,341