Citiraj:
Autor DaNiJ3L
nevalja
|
Što onda ne napišeš da valja? Nego se tu praviš pametan. Riješio sam problem nakon kopanja po literaturi i učenja komandi u pascalu.
Hvala rodneyu i ljudima koji žele pomoć' a ne laprdat' bezveze.
program sumacifara(input,output);
var i,j : integer;
begin
j := 0;
write ('Unesite trocifren broj:');
readln(i);
repeat
j := j + i mod 10;
i := i div 10;
until (i < 10);
j := j + i;
writeln('Suma cifara je: ', j);
readln;
end.