Câu 4:
uses crt;
var i,s:longint;
begin
clrscr;
for i:=1 to 9 do
if i mod 2=1 then inc(s,i*i);
writeln('S= ',s);
readln
end.
Câu 5:
uses crt;
var i,s:longint;
begin
clrscr;
for i:=1 to 10 do
if i mod 2=0 then inc(s,i*i);
writeln('S= ',s);
readln
end.