Câu1:

t = 0;
for i := 1 to 100 do if i mod 2 = 0 then t := t + i;

//xuất t

Câu 2:

for i:=1 to length(s) do i

begin

t = chr(s[i]);

if ((65 <= t)and(t <= 90) or ((97 <= t)and(t <= 122)) then write(s[i]);

end;

Câu 3:

t:=0;

for i:=1 to n do

begin

readln(temp);//temp là biến tạm dùng để lưu các giá trị nhập vào thay cho mảng

t:=t+temp;

end;

// xuất t

//nhập xuất khai báo tự làm

Câu 1 :

- Viết câu lệnh lặp :

⇒ S := 0; for i := 1 to 100 do if i mod 2 = 0 then S := S + i;

Câu 2 :

uses crt;

var s : string; d, i : byte;

begin

clrscr;

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

d := 0;

for i := 1 to length(s) do

begin if s[i] in ['A' .. 'Z'] then d := d + 1;

if s[i] in ['a' .. 'z'] then d := d + 1; end;

write('Co ', d ,' ki tu la chu cai');

readln

end.

Câu 3 :

uses crt;

var a : array[1 .. 100] of integer; i, n, S : integer;

begin

clrscr; S := 0;

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

for i := 1 to n do

begin write('Nhap so thu ', i ,' : '); readln(a[i]);

S := S + a[i]; end;

write('Tong : ', S);

readln

end.