RO Questions
RONALRO
a fost răspuns

Se dă un şir cu n elemente, numere naturale. Să se verifice dacă toate elementele şirului au număr par de cifre.
Programul afișează pe ecran mesajul DA, dacă toate elementele şirului au număr par de cifre, respectiv NU în caz contrar.

Răspuns :

var a:array of integer;
i,n,r,c,d:integer;

begin
read(n);
setlength(a,n);
writeln;

for i:=0 to n-1 do begin
read(a[i]);
r:=a[i];
c:=0;
repeat
r:=r div 10;
inc(c);
until r=0;
if odd(c) then inc(d);
end;

writeln;
if d=0 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