На паскале abc (не с суппер пуппер версий ) () полное решение : найти сумму цифр натурального числа, которые не больше 5. формат ввода: на вход подается натуральное, не превосходящее 30000. формат вывода: целое число. пример входных данных 650 пример выходных данных 5

Huliganka3009 Huliganka3009    2   20.09.2019 06:00    4

Ответы
Printsesska042017 Printsesska042017  08.10.2020 03:59
Var
  x, sum: integer;

begin
  read(x);
  while(x > 0) do
  begin
    if(x mod 10 <= 5) then sum := sum + x mod 10;
    x := x div 10;
  end;
  write(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика