Question

Poate rezolva cineva acest program in Pascal.
Se da un numar natural n format din cel mult 9 cifre. Sa se determine de cite ori se repeta in scrierea lui cifra unitatilor si de cite ori cifra zecimilor.

Asta e versiunea sa in c++

int main()
{
int n,k=0,liviu;
cin>>n;
liviu=n%10;
while(n)
{
if(n%10==liviu)
k++;
n/=10;
}
cout<<k;
}​

Answer 1

Răspuns:

program frecventa_u_z;

var n,u,z,fu,fz,c:longint;

begin

 write('n=');read(n);

 u:=n mod 10; fu:=1;

 if n<10 then fz:=-1

 else

   begin

     n:=n div 10;

     z:=n mod 10;

     fz:=1;

     if z=u then begin inc(fu); fz:=fu; end;

     n:=n div 10;

     while (n>0) do

       begin

         c:=n mod 10;

         if (c=u) then inc(fu);

         if (c=z) then inc(fz);

         n:=n div 10;

       end;

   end;

 writeln('Cifra unitatilor, ',u,', se repeta de ',fu,' ori');

 write('Cifra zecilor, ');

 if fz=-1 then writeln('nu exista')

 else writeln(z,', se repeta de ',fz,' ori');

end.

Explicație:

Succese!