Question

Elaborați un program Pascal, care evaluează numerele scrise în baza b, b≤ 10. (In pascal obligatoriu)

Answer 1

Răspuns:

program EvaluareNumere;

var

numar: string;

baza: integer;

suma: integer;

i: integer;

begin

write('Introduceti numarul: ');

readln(numar);

write('Introduceti baza (b <= 10): ');

readln(baza);

suma := 0;

for i := 1 to length(numar) do

begin

suma := suma * baza + (ord(numar[i]) - ord('0'));

end;

writeln('Suma cifrelor este: ', suma);

end.

Explicație:

Acest program cere utilizatorului să introducă un număr și o bază (b <= 10). Apoi, folosind un ciclu "for", programul parcurge fiecare caracter din număr și îl adaugă la suma totală. În fiecare iterație, suma este multiplicată cu baza, astfel încât să se ia în considerare și poziția fiecărei cifre în număr. La final, programul afișează suma cifrelor.