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.

Posturi asemanatoare

• Probleme Pascal – Calculul sumei 1+1*2+1*2*3.+…..*n (7)
• Probleme Pascal – Aflarea numerelor prima cuprinse intre doua numere a si b, cu afisarea intr-un fisier text (4)
• Some support, please? (2)
• Diacriticele si netul romanesc – partea a doua (5)
• Probleme Pascal – Aflarea unui n termen dintr-un sir Fibonacci (1)
• Probleme Pascal – Afisarea unui trunghi de numere (0)
• Probleme Pascal – Afisarea tuturor numerelor cu 3 cifre divizibile cu suma cifrelor lor (4)
• Diacriticele si internetul in Romania (4)
• Despre vise ? (4)
• ArboMedia pe Hi5 ? (1)