Ответы на вопрос:
Var a,s: integer; begin readln(a); s: =0; while a> 0 do begin s: =s+a mod 10; a: =a div 10; end; writeln('s = ',s); end. пример: 123456 s = 21
Популярно: Информатика
-
Julai123425.11.2021 20:53
-
Лера56500901.09.2022 10:40
-
ання201827.10.2021 19:59
-
тата23822.01.2022 09:01
-
bviktoria456729.06.2022 01:35
-
zhanar777702.02.2021 19:59
-
mkashkan05.09.2020 21:03
-
jutyra11.09.2020 00:38
-
satova108.11.2020 18:44
-
sini118.01.2021 04:15