Răspuns :
Răspuns:
program suma_div_3;
var nr, s:integer;
begin
read(nr);
s:=0;
while nr<>0 do
begin
if (nr mod 3 = 0) then s:=s+nr;
read(nr);
end;
writeln(s);
end.
Explicație:
Succese!
Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de sprijin suplimentar, vă încurajăm să ne contactați. Revenirea dumneavoastră ne bucură, iar dacă v-a plăcut, nu uitați să adăugați site-ul nostru la favorite!