Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 860 б
Ответ: 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
·
Хороший ответ
4 апреля 2023 12:11
Остались вопросы?
Еще вопросы по категории Информатика
Разгадайте кроссворд "Информационное моделирование" 1.Информационные модели в которых одновременно используются и образные и знаковые элементы. 3.Моде...
Кем и когда был введён термин гипертекст?...
Помогите!!!!! приведите примеры систем имеющих одинаковый состав но разную структуру...
Что будет результатом работы алгоритма? 1) Если правее Робота не встретится препятствия, то он переместится на 51 клетку вправо 2) Если левее Робота...
Устройство хранения программ и данных.(6 букв, начинается на "п"...
Все предметы 
