Informatică, întrebare adresată de loredanadinu41p6i8jy, 8 ani în urmă

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

Răspunsuri la întrebare

Răspuns de howardax
0

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.

Alte întrebări interesante