Ответы на вопрос:
Var a,s: integer; begin readln(a); while (a< > 0) do begin s+=a mod 10; a: =a div 10; end; writeln(s); end.
Популярно: Информатика
-
Определите требуемый объем видеопамяти (в Кб) для различных графических режимов...
Даниил535601.08.2021 19:37 -
1) Сравните два числа: 10112 и 11012 11112 и 10012 110112 и 111112 2) Найдите...
Алина0607200305.06.2022 00:44 -
Вбольнице идет наблюдение за температурой больных. температура может изменяться...
varyaa071174731.10.2021 19:54 -
С++ написать программу,округляющую введеное вещественное число до целого и...
petrenko2000216.06.2023 02:20 -
Какое количество информации содержит сообщение 1010101111012...
vladik150107.07.2021 06:22 -
Примеры информационных процессов в живой природе...
kendebaeva0601.08.2022 13:18 -
1)необходимая игра находится на одном из dvd-дисков. найдя нужный диск, вася...
znanija14030.12.2021 10:34 -
Вывести на экран номер четверти координатной плоскости, которой принадлежит...
Negumanitariy15.09.2020 19:56 -
Хэлп я не могу найти в интернете...
SL8707.10.2021 06:28 -
написать линейный алгоритм...
Аллакот88815.04.2021 18:59