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

Question

Информатика

Галюся

18 февраля, 19:36

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

+1

Ответы (1)

Знаете ответ на вопрос?

Аника · Answer 1

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 = 31854

x = 15

s = 21

Сумма цифр больше 15