Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
Ответ: var
a, s: integer;
begin
read(a);
s := 0;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
writeln(s);
end.
a, s: integer;
begin
read(a);
s := 0;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
writeln(s);
end.
0
·
Хороший ответ
5 апреля 2023 06:30
Остались вопросы?
Еще вопросы по категории Информатика
Дано натуральное число. Выведите его последнюю цифру. Входные данные Вводится натуральное число. Выходные данные Выведите ответ на задачу. Яз...
Объекты на рисунке образуют класс "Домики". Составь дерево деление данного класса на подклассы. Используй такие названия подклассов: одноэтажные, мног...
1. Какие функции выполняет операционная система? a) обеспечение организации и хранения файлов b) подключения устройств ввода/вывода c) организация о...
Подберите примеры ситуаций (из повседневной жизни, художественной литературы, кино), в которых информация: А) СОБИРАЕТСЯ Б) КОПИРУЕТСЯ В) ОБРАБАТЫ...
Может ли быть манипуляция поисковой выдачи со стороны самого поисковика?...
Все предметы 
