👤
a fost răspuns

Se introduc succesiv numere nenule întregi până la introducerea numărului
0. Să se afişeze suma tuturor numerelor divizibile cu 3 introduse. Exemplu: Date de
intrare 3 5 6 2 0 Date de ieşire 9. (program Pascal)

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!


ID Teachingsy: Alte intrebari