подсчитать количество (сумму)цифр в записи целого неотрицательного числа. (в паскале авс)

Подсчитать количество (сумму)цифр в записи целого неотрицательного числа. (в паскале авс)

Задать свой вопрос
1 ответ
Program asd;
var n,a,b:integer;
begin read(n);
a:=n;
while agt;0 do begin
b:=a mod 10+b;
a:=a div 10;
end;
writeln(b);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт