👤
HAMSTERITA8ZE
a fost răspuns

Intr-un fisier se citesc mai multe numere. Sa se afiseze cifra care apare de k ori in numerele cu 3 cifre.

Răspuns :

#include <iostream.h>
#include <fstream.h>
#include <math.h>
int main()
{
int n,k,i;
int pun[100];
ifstream in("DATEIN.TXT");
i=1;
do
{
in >> pun[i];
 i=i+1;
   } while (i<100);
in.close();
i=1;
k=-1;
do
{
if (pun[i]==3)
{
k=k+1;
i=i+1;
  }
else
{
 i=i+1;
   }
}while (i<100);
cout<<"Cifra 3 apare de  "<<k<<" ori"<<endl;
system("pause");
return 0;
}
function f(a:integer):integer;

 begin
 
 f:=0;
 
 while a<>0 do 
  begin
  a:=a div 10;
  f+=1;
  end;
 
 end;

var
 
 a:array of integer;
 b:array[1..3] of integer;
 i,n,k,n1,a1,l,s:integer;
 t:text;
 
begin

 assign(t,'fisier.in');
 reset(t);
 
 readln(t,n);
 setlength(a,n);
 
 for i:=0 to n-1 do
  read(t,a[i]);
  
 close(t);
 
 write('k=');
 read(k);
 writeln;
 
 for i:=0 to n-1 do  
  if f(a[i])=3 then 
   begin
   a1:=a[i];
   s:=0;
   n1:=0;
   while a1<>0 do 
    begin
    inc(n1);
    b[n1]:=a1 mod 10;
    a1:=a1 div 10;
    end;
   for n1:=1 to 3 do 
    for l:=1 to 3 do
     if (b[n1]=b[l]) and (l<>n1) then
      inc(s);
   if (s=k) or (s div 2=k) then write(a[i],' ');
   end;

end.
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!


Ze Studies: Alte intrebari