Câu 1:

program chu_vi;

uses crt;

var f:text;

      a,b,c:integer;

begin

     clrscr;

     Assign(f,'THI.INP');  reset(f);

     readln(f,a,b,c);

     write('Chu vi cua tam giac la: ',a+b+c);

     close(f);  readln;

end.

Câu 2:

program tong_uoc;

uses crt;

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

     i,t:integer;

begin

     clrscr;

     t:=0;

     for i:=1 to 5 do

          begin

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

               if 3 mod A[i]=0 then t:=t+A[i];

          end;

     write('Tong cac so la uoc cua 3 la: ',t);

     readln;

end.

Nếu các số là bội của 3 thì thay điều kiện thành if A[i] mod 3=0 then t:=t+A[i];

Câu 3:

program xoa_a;

uses crt;

var s:string;

begin

     clrscr;

     write('Nhap xau S: ');  readln(s);

     while pos('a',s)<>0 do delete(s,pos('a',s),1);

     write('Xau S sau khi xoa la: ',s);

     readln;

end.

Câu 1:

program chu_vi;

uses crt;

var f:text;

      a,b,c:integer;

begin

     clrscr;

     Assign(f,'THI.INP');  reset(f);

     readln(f,a,b,c);

     write('Chu vi cua tam giac la: ',a+b+c);

     close(f);  readln;

end.

Câu 2:

program tong_uoc;

uses crt;

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

     i,t:integer;

begin

     clrscr;

     t:=0;

     for i:=1 to 5 do

          begin

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

               if 3 mod A[i]=0 then t:=t+A[i];

          end;

     write('Tong cac so la uoc cua 3 la: ',t);

     readln;

end.

Nếu các số là bội của 3 thì thay điều kiện thành if A[i] mod 3=0 then t:=t+A[i];

Câu 3:

program xoa_a;

uses crt;

var s:string;

begin

     clrscr;

     write('Nhap xau S: ');  readln(s);

     while pos('a',s)<>0 do delete(s,pos('a',s),1);

     write('Xau S sau khi xoa la: ',s);

     readln;

end.

Chúc bn thi tốt

#hu_nam

#mlem_mlem