👤
NOKAUT3EZ
a fost răspuns

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

Răspuns :

KIRILLLEZ
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.
Vezi imaginea KIRILLL
Vezi imaginea KIRILLL
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari