Probleme Pascal – Din 2 numere a si b sa se afle care are suma cifrelor maxima

Se citesc de la tastatură 2 numere întregi a şi b, a mai mic ca b. Afişaţi numărul care are suma cifrelor maximă. Pentru aflarea sumei cifrelor unui număr se va folosi o funcţie care are ca parametru un număr întreg şi returneaza suma cifrelor lui.

program prob17;

var a,b:integer;

function suma(x:integer):integer;

var aux,c,s:integer;

begin

aux:=x;s:=0;

repeat

s:=s+aux mod 10;

aux:=aux div 10;

until aux=0;

suma:=s;

end;

begin

repeat

write(‘a=’); readln(a);

write(‘b=’);readln(b);

until a

if suma(a)>suma(b) then write(a)

else if suma(b)>suma(a) then write(b);

if suma(a)=suma(b)then write(‘suma cifrelor celor 2 nr este egala’,a);

end.

Leave a Reply

Your email address will not be published. Required fields are marked *