Лучшие помощники
- 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. Что называется архивацией? 2. Для чего предназначена архивация? 3. Какой файл называется архивным? 4. Что называется разархивацией? 5. Какая информ...
Дополните алгоритм из примера 9 так, чтобы с его помощью можно было найти наибольшую из четырех величин A, B, C, и D. Помогите, пожалуйста...
Сколько МБАЙТ информации содержит сообщение объемом 2 ^27 бит?...
Дан фрагмент таблицы истинности выражения F:...
Опишите процесс выполнения операторов присваивания а:=3; b:=4; а:=а+B...
Все предметы 
