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
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
Limba română,
8 ani în urmă
Chimie,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
9 ani în urmă
Fizică,
9 ani în urmă