👤

Sa se elaboreze un program pascal care calculate suma 3+6+9+...

Răspuns :

var  

  a,n,i:integer;

begin

   a:=0;

   read(n);

   for i:=1 to n do

   if ( i mod 3 =0) then  

   a:=a+i;

   writeln('Suma=',a);

end.