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