👤
a fost răspuns

Un program Pascal care sa calculeze suma cifrelor pare dintr-un numar, utilizand(obligatiriu) functia.(ca in screenshot).

Un Program Pascal Care Sa Calculeze Suma Cifrelor Pare Dintrun Numar Utilizandobligatiriu Functiaca In Screenshot class=

Răspuns :

function sum(n:integer):integer;
begin
 while(n<>0) do
  begin
   sum+=n mod 10;
   n:=n div 10;
  end;
end;

var

 n:integer;
 
begin

 read(n);
 write(sum(n));

end.