buna , am nevoie de putin ajutor .
cum aflu suma numerelor diizibile cu 3 si 7 dintr-un tablou (vector) in pascal ? ms,anticipat .
Răspunsuri la întrebare
Răspuns de
1
if x div 3:=0 then if x div 7 :=0 then do
S:=S+x
S:=S+x
DoubleNy:
multumesc
tablou:array[1..100] of integer ;
i,n,sum: integer ;
Begin
Writeln('dati numarul componentelor din vector ' ) ; readln(n);
for i:=1 to n do begin
writeln('scriti cifrele din tablou ' ) ; readln(tablou[i]);
end;
if tablou[i] div 3:=0 then
if tablou[i] div 7:=0 then
sum:=0;
sum:=sum+tablou[i] ;
writeln('suma este=',sum);
readln;
end.
Alte întrebări interesante
Fizică,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Engleza,
9 ani în urmă
Limba română,
9 ani în urmă
Fizică,
9 ani în urmă
Matematică,
9 ani în urmă