Question

SE da un sir de numere intregi diferite. Calculati suma numerelor in sir sunt divizibile cu 3 sau cu 5, folositi instructiunea FOR in PASCAL

Answer 1

program Hello;

var i, s, nr, n:integer;

begin

 write ('Din cate numere va fi formatul sirul?:');

 read(n);

 writeln('Dati numerele:');

 s:=0;

 for i:=1 to n do begin

 readln(nr);

 if (nr mod 3 = 0) OR (nr mod 5 = 0) then begin

 s:=s+nr;

 end;

 end;

 writeln('S=',s);

end.