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

dariaAppp dariaAppp    1   18.09.2019 14:40    0

Ответы
007sergey 007sergey  08.10.2020 00:12
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
ПОКАЗАТЬ ОТВЕТЫ
emdnick emdnick  08.10.2020 00:12
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (s,x):=(ReadlnString('Введите число, можно нецелое:'),0.0);
  if TryStrToFloat(s,x) then
    if s.Where(c-> c in ['0'..'9']).Select(c->c.ToDigit).Sum mod 10=5
    then Writeln('Сумма цифр заканчивается на 5')
    else Writeln('Сумма цифр не заканчивается на 5')
  else Writeln('Неверное представление числа')
end.

Примеры
Введите число, можно нецелое: -3532175
Сумма цифр не заканчивается на 5

Введите число, можно нецелое: 0.02432413
Сумма цифр не заканчивается на 5

Введите число, можно нецелое: -13.05360214
Сумма цифр заканчивается на 5

Введите число, можно нецелое: 1.23007e-31
Сумма цифр не заканчивается на 5
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика