Предмет: Информатика,
автор: Аноним
Дано трехзначное число. Найдите сумму его цифр.
Входные данные
Вводится целое положительное число. Гарантируется, что оно соответствует условию задачи.
Выходные данные
Выведите ответ на задачу.
(Примеры:входные данные-179,выходные данные-17) Решить в ПАСКАЛЕ
Ответы
Автор ответа:
0
var a,s:integer;
begin;
readln(a);
while a<>0 do
begin;
s:=s+(a mod 10);
a:=a div 10;
end;
write(s);
end.
begin;
readln(a);
while a<>0 do
begin;
s:=s+(a mod 10);
a:=a div 10;
end;
write(s);
end.
Интересные вопросы
Предмет: История,
автор: vasya9928
Предмет: Математика,
автор: erdauletkenzesov0009
Предмет: ОБЖ,
автор: CtepaLLLka
Предмет: Математика,
автор: AnyaChechulina
Предмет: Биология,
автор: LiliyaKA