Question

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.

Answer 1

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.