Ответы на вопрос:
Var a,b,x,s: integer; begin write('a = '); readln(a); write('x = '); readln(x); b: =a; s: =0; while b> 0 do begin s: =s+b mod 10; b: =b div 10; end; writeln('s = ',s); if s> x then writeln('сумма цифр больше ',x) else writeln('сумма цифр не больше ',x); end. пример: a = 31854x = 15s = 21 сумма цифр больше 15
Популярно: Информатика
-
AntonBobko04.03.2022 06:36
-
гений24803.02.2022 17:39
-
omusheg21.09.2022 16:28
-
ksushadream118.07.2021 00:56
-
nova969617.11.2021 04:18
-
OlgaStarikova28.06.2023 23:04
-
Lizankanahovicyn19.01.2021 22:04
-
motovsavelymotOv12.03.2022 21:01
-
Sykaper04.07.2021 03:38
-
halker249Neekolay26.02.2020 08:53