👤
ANDREY1337EZ
a fost răspuns

Sa se scrie un program care va calcula suma cifrelor a unui numar natural de 4 cifre
Program P1
{Calculul}
var N R :intiger
begin
writeln('N')
readln(N)
R:= ....
writeln ('Rezultat',R)
readln()
end

dati-mi rezolvarea ..... cu ce este egal R

Răspuns :

LOZANALEXEZ
 r=(n mod 10) + ((n mod 100) div 10) + ((n mod 1000) div 100) + (n div 1000);

var n,r:integer;

begin
  writeln('N');
  readln(n);
  r:=(n mod 10) + ((n mod 100) div 10) + ((n mod 1000) div 100) + (n div 1000);
  write(r);
  readln;
end.

Sau o metoda alternativa de rezolvare

function sumacifrelor(x:integer):integer;
var s:integer;
begin
  while (x>0) do
  begin
    s:=s+(x mod 10);
    x:=x div 10;
  end;
  sumacifrelor:=s;
end;

var n,r:integer;

begin
  writeln('N');
  readln(n);
  r:=sumacifrelor(n);
  write(r);
  readln;
end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari