Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
Ответ: 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
Остались вопросы?
Еще вопросы по категории Информатика
Сколько битов памяти достаточно для кодирования одного пикселя 16-цветного изображения...
Переведите число 305 из десятичной системы счисления в двоичную систему счисления.Сколько единиц содержит полученное число В ответе укажите одно число...
Укажите минимальную по номиналу цифру шестнадцатеричной системы счисления...
Для хранения в информационной системе документы сканируются с разрешением 300 ppi и цветовой системой, содержащей 2^24 = 16 777 216 цветов. Методы сжа...
1.Какая клавиатура нажимается после набора последнего данного в операторе read? а) Enter б) точка с запятой в) пробел г) Ctrl 2. При присваивании...
Все предметы 
