Дано естественное число. Обусловьте сумму цифр в нем

Дано естественное число. Обусловьте сумму цифр в нем

Задать свой вопрос
2 ответа
Var a,s:integer;
begin
readln(a);
s:=0;
while agt;0 do
 begin
 s:=s+a mod 10;
 a:=a div 10;
 end;
writeln('s = ',s);
end.

Пример:
13854
s = 21
Разделить на 2 и помножить число которое получилось
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт