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 SumaCuCifreEgale;

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

var t:tablou; n,suma,i,num,cif,ultimacif:integer; egale:boolean;

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

      num:=t[i];

      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;

      if egale then suma:=suma+t[i];

     end;

  writeln('suma=',suma);

end.

Explicație: