Составить программу к решению : "дано число n. найти сумму и количество его цифр.

Ekaeterina44 Ekaeterina44    1   28.05.2019 17:50    1

Ответы
kadieva1976 kadieva1976  26.06.2020 11:26
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика