Составить программу к решению задачи : "дано число n. Найти сумму и количество его цифр.
Составить программу к решению задачи : "дано число n. Найти сумму и количество его цифр.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,k,c,d:integer;
begin
read(a); k:=0; c:=10;
while k<>0 do begin
b:=b + a mod c; k:=a div c; inc(d);
end;
write(b,d);
end.
Не нашли ответ?
Похожие вопросы