Дано число n определить заканчивается ли сумма цифр на 5

Question

Информатика

Майя

28 октября, 06:08

Дано число n определить заканчивается ли сумма цифр на 5

+5

Ответы (1)

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

Селестина · Answer 1

Var n, s:integer;

begin

readln (n) ;

s:=0;

n:=abs (n) ;

while n>0 do

begin

s:=s+n mod 10;

n:=n div 10;

end;

writeln ('s = ', s) ;

if s mod 10=5 then writeln ('Сумма цифр оканчивается на 5')

else writeln ('Сумма цифр не оканчивается на 5') ;

end.

Пример:

1752

s = 15

Сумма цифр оканчивается на 5