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 că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.