*Chung
program tinhtong;
var i:byte;
S:integer;
begin
clrscr;
S:=0;
for i:=11 to 15 do
S:=S+i;
writeln('a) S= ',s);
S:=0;
for i:=21 to 29 do
if i mod 2=1 then S:=S+i;
writeln('b) S= ',s);
S:=0;
for i:=14 to 22 do
if i mod 2=0 then S:=S+i;
writeln('c) S= ',s);
readln;
end.
*Riêng
a)
program tinhtong;
var i:byte;
S:integer;
begin
clrscr;
S:=0;
for i:=11 to 15 do
S:=S+i;
writeln('a) S= ',s);
readln;
end.
b)
program tinhtong;
var i:byte;
S:integer;
begin
clrscr;
S:=0;
for i:=21 to 29 do
if i mod 2=1 then S:=S+i;
writeln('b) S= ',s);
readln;
end.
c)
program tinhtong;
var i:byte;
S:integer;
begin
clrscr;
S:=0;
for i:=14 to 22 do
if i mod 2=0 then S:=S+i;
writeln('c) S= ',s);
readln;
end.
