Ето 1 задача:
program z1;
var n,i,k:longint;
begin
readln(n);
k:=0;
for i:=1 to n-1 do
begin
if (i mod 2)<>0 then
begin k:=k+i;
end;
end;
writeln(k);
end.Добавлено (22.10.2008, 18:31)
---------------------------------------------
ето 2-ая задача:
var i,n,k,a:integer;
begin
readln(n);
k:=0;
for i:=20 to n do
begin
if (i mod 3)=0 then k:=k+i;
end;
writeln(k);
end.
