Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
Ответ: 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)кукла...
Сколько единиц в двоичной записи числа 8f (16) ПОМОГИТЕ ПОЖАЛУЙСТА...
Определи значение сложного высказывания F F=(AvB)^(B^A) Используя таблицу истинности.В ответ запиши,сколько раз значение Истина получено в столбике F...
Найти среднее арифметическое чисел от 89 до 113 в паскаль...
Все предметы 
