Question

Faceti in pascal programul: Se citesc n, n>10 numere de la tastiera. Sa se afiseze cate sunt divizibile cu 2,3,6.

Answer 1

var  n, cu2, cu3, cu6, i: integer;

begin
  cu2 := 0;
  cu3 := 0;
  cu6 := 0;
  readln(n);
  if n > 10 then
 begin
    for i := 1 to n do
     begin
      if i mod 2 = 0 then
        cu2 := cu2 + 1;
      if i mod 3 = 0 then
        cu3 := cu3 + 1;
      if i mod 6 = 0 then
         cu6 := cu6 + 1;
    end;
     writeln('cu 2:' + cu2 + '; cu 3:' + cu3 + '; cu 6:' + cu6);
  end
 else
 writeln('n > 10');
end.

677d3db68f50aa515d67a7a1712703f3.txt

827689fdcbbbf2bd4ae01f4df7a14711.pas