Лучшие помощники
- 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
Остались вопросы?
Еще вопросы по категории Информатика
Задача 2: Межпланетные грузовые перевозки В последнем обновлении компьютерной игры «Totally Space!» появилась возможность заказывать космические кораб...
Сдать решение задачи 6-Странное устройство Полный балл: 100 Ограничение времени: 1 с Ограничение памяти: 512M Ограничение размера стека: 64M Задач...
Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями: F(0) = 1, F(1) = 1 F(n) = F(n–1)*F(n-2)+2, при...
Выберите форматы текстовых файлов: ODT GIF TXT JPEG DOC PDF RTF HTML EXE BMP...
Среди проведенных ниже трех чисел, записанных в различных системах счисления, найдите наибольшее и запишите его в ответе в семеричной системе счислени...
Все предметы 
