18 lines
343 B
ObjectPascal
18 lines
343 B
ObjectPascal
// Öèêë while. Ñóììà öèôð ïîëîæèòåëüíîãî ÷èñëà
|
|
var m: integer;
|
|
|
|
begin
|
|
writeln('Ââåäèòå ïîëîæèòåëüíîå ÷èñëî: ');
|
|
read(m);
|
|
write('Öèôðû ÷èñëà â îáðàòíîì ïîðÿäêå: ');
|
|
var s := 0;
|
|
while m>0 do
|
|
begin
|
|
var digit := m mod 10;
|
|
write(digit,' ');
|
|
s += digit;
|
|
m := m div 10;
|
|
end;
|
|
writeln;
|
|
writeln('Ñóììà öèôð = ',s);
|
|
end. |