Răspuns :
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:
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!