Question

Scrieți un program Pascal, urgent vă rog mult
fie dat tabloul a [1..100] numere întregi. determinați suma numerelor care constau din aceeași cifra

Answer 1

Răspuns:

program SumareNumereCuCifreEgale;

type tablou=array[1..100]of integer;

var n,i,suma:integer;

   t:tablou;

function CifreEgale(num:integer):boolean;

var cif,ultimacif:integer; egale:boolean;

begin

  ultimacif:=num mod 10;

  num:=num div 10;

  egale:=true;

  while (num>0) do

    begin

      cif:=num mod 10;

      if cif<>ultimacif then egale:=false;

      num:=num div 10;

    end;

   CifreEgale:=egale;

end;

begin

 write('dati nr. de elemente, n='); read(n);

 writeln('introdu ',n,' numere intregi:');

 for i:=1 to n do

   read(t[i]);

 

 suma:=0;

 for i:=1 to n do

    begin

     if CifreEgale(t[i]) then suma:=suma+t[i];

    end;

 

 writeln(suma);

end.

Explicație: