Câu 1: Cho mảng một chiều gồm 10 phần tử thuộc kiểu kí tự, hãy viết chương trình tìm trong mảng các kí tự là ‘A’ hoặc ‘a’ hoặc ‘ B ‘ để ghi vào xâu S

0 bình luận về “Câu 1: Cho mảng một chiều gồm 10 phần tử thuộc kiểu kí tự, hãy viết chương trình tìm trong mảng các kí tự là ‘A’ hoặc ‘a’ hoặc ‘ B ‘ để ghi vào xâu S”

1. Câu 1:

   uses crt;
   var a:array[1..10] of string; S:string;
       i:byte;
   begin
      clrscr;
      for i:=1 to 10 do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(a[i]);
         if (a[i]=’a’) or (a[i]=’A’) or (a[i]=’B’)
         then S:=S+a[i];
      end;
         write(‘Xau S la: ‘,S);
         readln
   end.

   Câu 2:

   uses crt;
   var a:array[1..10] of integer; S,S1:string;
       i:byte;
   begin
      clrscr;
      for i:=1 to 10 do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(a[i]);
         if (a[i] mod 2 = 0) and (a[i] mod 11 = 0)
         then begin
                 str(a[i],S1);
                 S:=S+S1;
              end;
      end;
      write(‘Xau S la: ‘,S);
      readln
   end.

   Bình luận