Viết chương trình: Nhập vào một xâu kí tự. Đếm và in ra màn hình

Câu hỏi :

Viết chương trình:

* Đáp án

* Hướng dẫn giải

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 trên thuộc đề trắc nghiệm dưới đây !

Top 4 Đề thi giữa kì 2 Tin học 11 có đáp án !!

Số câu hỏi: 88

Copyright © 2021 HOCTAP247