Лучшие помощники
- 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
·
Хороший ответ
4 апреля 2023 12:11
Остались вопросы?
Еще вопросы по категории Информатика
Информационный обьем сообщения:Мама мыла раму , равен: а)12байт б)120бит в)24байта ....
1.Почему современные персональные компьютеры в сотни раз меньше но при этом в сотни раз быстрее эвм первого поколения? 2.Почему современные персональн...
Для какого из указанных значений числа X ложно выражение (X > 2) ИЛИ НЕ (X > 1)? 1) 1 2) 2 3) 3 4) 4 Для какого числа X истинно высказы...
Световое табло состоит из лампочек. Каждая лампочка может находится в одном из трех состояний(включено, выключено или мегает). Какое наименьшее количе...
Выберите среди перечисленных чисел те, которые являются верной записью числа 100(десятеричная система) в какой-либо системе счисления 1 37(во...
Все предметы 
