
Владилен
6 год назад
Написать программу, определяющую (отвечающею на вопрос) - больше ли числа х сумма цифр введённого числа
ОТВЕТЫ

Lanazhom
Jul 1, 2019
Var a,b,x,s:integer;
begin
write(a = );
readln(a);
write(x = );
readln(x);
b:=a;
s:=0;
while bgt;0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
writeln(s = ,s);
if sgt;x
then writeln(Сумма цифр больше ,x)
else writeln(Сумма цифр не больше ,x);
end.
Пример:
a = 31854
x = 15
s = 21
Сумма цифр больше 15
begin
write(a = );
readln(a);
write(x = );
readln(x);
b:=a;
s:=0;
while bgt;0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
writeln(s = ,s);
if sgt;x
then writeln(Сумма цифр больше ,x)
else writeln(Сумма цифр не больше ,x);
end.
Пример:
a = 31854
x = 15
s = 21
Сумма цифр больше 15
#include lt;iostreamgt;
#include lt;stdlib.hgt;
using namespace std;
int main() {
int a,x,s=0;
cin gt;gt; a gt;gt; x;
for(;abs(a)gt;0;s+=abs(a)10,a/=10);
cout lt;lt; (s gt; x "more" : "not more") lt;lt; endl;
}
#include lt;stdlib.hgt;
using namespace std;
int main() {
int a,x,s=0;
cin gt;gt; a gt;gt; x;
for(;abs(a)gt;0;s+=abs(a)10,a/=10);
cout lt;lt; (s gt; x "more" : "not more") lt;lt; endl;
}
94