Câu 11:
a)
s:=0;
For i:=m to n do
If i mod 2 = 0 then s:=s+i;
b)
For i:=1 to n do
Read(A[i]);
c)
s:=0;
For i:=1 to n do
If A[i] mod 2 = 0 then s:=s+A[i];
d)
s1:=0; s2:=0; s3:=0;
For i:=1 to n do
Begin
If A[i] mod 2 = 0 then s1:=s1+A[i];
If A[i]<0 then s2:=s2+A[i];
If A[i]>0 then s3:=s3+A[i];
End;
e)
Khai báo i: char;
For i:='A' to 'Z' do
Write(i,' ');
f)
For i:=1 to 150 do Write(i,' ');
g)
s:=0;
For i:=m to n do
If i mod 3 = 0 then s:=s+i;
h)
s1:=0; s2:=0;
For i:=m to n do
If i mod 2 = 0 then inc(s1)
Else inc(s2);