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.
