Лучшие помощники
- 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
Остались вопросы?
Еще вопросы по категории Информатика
3. Информационное сообщение объемом 10 Кб состоит из 10240 символов. Сколько символов содержит алфавит, при помощи которого было записано данное сообщ...
Каково происхождение термина презентация???...
Помогите пожалуйста с решением......
1. Можно ли редактировать растровые изображения? 2. Какие фигуры есть в редакторе Paint? 3. На сколько градусов можно поворачивать фрагменты рисунка в...
Приведите примеры формы представления информации: по номерам в порядке убывания...
Все предметы 
