Ответы на вопрос:
Для натуральных чисел: var a,k,s: integer; begin write('a = '); readln(a); k: =0; s: =0; while a> 0 do begin k: =k+1; s: =s+a mod 10; a: =a div 10; end; writeln('k = ',k,', s = ',s); end. пример: a = 352186 k = 6, s = 25
Популярно: Информатика
-
germanlandyshev27.06.2023 03:25
-
единорог10607.01.2021 17:14
-
lcjewfyjozo07516.06.2023 08:26
-
5ти08.01.2020 19:22
-
driftsmuk110.04.2023 00:47
-
Sanya1936718.09.2021 07:44
-
kirillarhipenc119.01.2023 01:47
-
соня1310116.09.2021 03:29
-
dkrechetov8502.02.2022 13:27
-
VitalЯ18.05.2021 06:48