Лучшие помощники
- 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
Остались вопросы?
Еще вопросы по категории Информатика
Python 1) Напишите генератор, который бы возвращал площади кругов с радиусами в диапазоне от 10 до 10 000. Вывести на экран первые пять значений с точ...
Для какого из приведенных значений числа Х истинно высказывание НЕ(Х<3)И(Х<4)? Вот варианты ответов: 5, 2,3,4...
Особенность мультимедийных продуктов: 1) возможность интерактивного взаимодействия 2) наличие текста 3) наличие числовых выражений 4) наличие графиче...
В штате работают 20 сотрудников. Даны 2 таблицы. В первой таблице: ФИО, должность, стаж работы, количество выходов на работу в выходные, зарплата в те...
Напишите функцию mean(xs) , принимающую список вещественных чисел и возвращающую их среднее арифметическое с точностью до 6 знаков после десят...
Все предметы 
