BÀI 1: Viết chương trình nhập vào xâu S1 có độ dài tối đa 100. Hãy đếm xem có bao nhiêu kí tự ‘A’ có trong xâu đó rồi đưa kết quả ra màn hình. . BÀI 2

0 bình luận về “BÀI 1: Viết chương trình nhập vào xâu S1 có độ dài tối đa 100. Hãy đếm xem có bao nhiêu kí tự ‘A’ có trong xâu đó rồi đưa kết quả ra màn hình. . BÀI 2”

1. Bài 1:

   program Tin_hoc;

   uses crt;

   Var i,k:integer;

         S1 : string [100];

   Begin

   clrscr;

   writeln(‘Nhap xau S1:’);readln(S1);

   k:=0;

   for i:= 1 to length(S1) do if ord(S1[i]) = 65 then inc(k);

   writeln(‘Trong xau S1 co ‘,k,’ ki tu A’);

   readln;

   end.

   Bài 2:

   program Tin_hoc;

   uses crt;

   Var i,k:integer;

         S2 : string [120];

   Begin

   clrscr;

   writeln(‘Nhap xau S2:’);readln(S2);

   k:=0;

   for i:= 1 to length(S2) do if ord(S2[i]) = 66 then inc(k);

   writeln(‘Trong xau S2 co ‘,k,’ ki tu B’);

   readln;

   end.

   Nhớ cho mik là câu trả lời hay nhất nha

   Bình luận

2. Bài 1:

   Program BTT;
   Uses crt;
   Var St: String;
       d: longint;
   Begin
           Clrscr;
           Write(‘Nhap St: ‘); Readln(St);
           d:=0;
           For i:=1 to length(St) do
                   If St[i]=’A’ then inc(d);
           Write(d);
           Readln
   End.

   Bài 2:

   Program BTT;
   Uses crt;
   Var St: String;
       d: longint;
   Begin
           Clrscr;
           Write(‘Nhap St: ‘); Readln(St);
           d:=0;
           For i:=1 to length(St) do
                   If St[i]=’B’ then inc(d);
           Write(d);
           Readln
   End.

   Bình luận