RO Questions
TALICASTEFANRO
a fost răspuns

1.Verificari:
Se da un sir x de n elemente intregi. Sa se verifice daca:
-toate elementele sunt pare;
-toate elementele sunt impare
-toate elementele sunt divizibile cu 4

-contine cel putin un element par
-contine cel putin un element impar

-contine p elemente pare
-contine p elemente impare

Va rog sa explicati cum le-ati facut..multumesc

Răspuns :

Pai nai ce face, citesti variabilele, daca intilnesti un numar par se mareste variabila par, altfel se mareste variabila impar si se mai verifica daca mai numarul se divide la 4. Dupa care controlezi si afisezi raspunsul.


var 

 x:array of integer;
 n,p:integer;
 i,par,impar,div4:integer;
 
begin

 read(n,p);
 setlength(x,n);
 
 for i:=0 to n-1 do
  begin
  read(x[i]);
  if(x[i] mod 2 = 0) then
   inc(par)
  else
   inc(impar);   
  if(x[i] mod 4 = 0) then 
   inc(div4);
  end;
  
 if(par=n) then writeln('DA')
 else writeln('NU');
 
 if(impar=n) then writeln('DA')
 else writeln('NU');
 
 if(div4=n) then writeln('DA')
 else writeln('NU');
 
 if(par<>0) then writeln('DA')
 else writeln('NU');
 
 if(impar<>0) then writeln('DA')
 else writeln('NU');
 
 if(par=p) then writeln('DA')
 else writeln('NU');
 
 if(impar=p) then writeln('DA')
 else writeln('NU');

end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile oferite v-au fost de ajutor. Pentru orice întrebare sau clarificare suplimentară, echipa noastră vă stă la dispoziție. Revenirea dumneavoastră ne onorează – nu uitați să ne salvați în lista de favorite!


RO Questions: Alte intrebari