Решитв delphi

[ilnar]

Дано целое число N(>0). Используя операции деления нецелое и взятия остатка от деления,найти количество и сумму его цифр.

[Сергeй]

Сделаю за 100 WMR
Стучи в ICQ

[ilnar]

Напишите уж программу пожалуйста в delphi.((((

[ОДИНОЧЕСТВО В СЕТИ]

k:=0;
s:=0;
while x<>0 do
begin
s:=s+x mod 10;
inc(k);
x:=x div 10;
end;
writeln('summa=',s);
writeln('count of digit=',k);

[ilnar]

спасибо огромное! Но в delphi не можете написать?(((

[ОДИНОЧЕСТВО В СЕТИ]

Огромное пожалуйста! А это в чем?

[ilnar]

пасибо!)))