Răspuns :
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:
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!