Question

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)

Answer 1

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!