iforum

Mohol by mi dakdo Pomôct s KDU4:
Uloha č.15 Zisti ciferny sučet n
Dakujem

{okomentuj riadky v zdrojaku!!!!}

program sucet_cifier;
uses crt;
var cislo,cislica,sucet:integer;
begin
clrscr;
writeln('zadaj cislo');
readln(cislo);
sucet:=0;
repeat
cislica:=cislo mod 10;
sucet:=sucet + cislica;
cislo:=cislo div 10;
until cislo=0;
writeln('ciferny sucet cisla ',cislo,' je ',sucet,'.');
readln;
end.