Câu 1:

program tong_100;

uses crt;

var i,t:integer;

begin

       clrscr;

       t:=0;

       for i:=1 to n do

              if i mod 2=0 then t:=t+i;

       write('Tong cac so chan tu 1 den 100 la: ',t);

       readln;

end.

Câu 2:

program chu_cai;

uses crt;

var s:string;

      i,d:byte;

begin

       clrscr;

       d:=0;

       for i:=1 to length(s) do

              if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then d:=d+1;

       write('So luong chu cai la: ',d);

       realdn;

end.

Câu 3:

program tong_dayso;

uses crt;

var A:array[1..100] of integer;

     n,i:byte;

     t:integer;

begin

       clrscr;

       write('Nhap N: ');  readln(n);

       t:=0;

       for i:=1 to n do

              begin

                     write('A[',i,']= ');  readln(A[i]);

                     t:=t+A[i];

              end;

       write('Tong cua day A la: ',t);

       readln;

end.

câu 1

S:=0;

I:=2;

While i<=100 do 

    Begin

        S:=s+i;

        i:=i+2;

    End;

Câu 2

T:=[]; d:=0;

For i:=1 to length(s) do

If (upcase(s[i]) in ['A'..'Z'])

and (s[i] not in t) then

    Begin

        d:=d+1;

         T:=t+[upcase(s[i])];

    End;

Write(d);

Câu 3

Var i, n: byte; a: array[1..100] of integer;

       S: longint;

Begin

    Write('n='); readln(n);

    For i:=1 to n do

        Begin

             Write('a[', i, ']='); readln(a[i]);

             S:=s+a[i];

        End;

    Write(s);

    Readln

End.