• с клавиатуры вводится число, определить количество цифр и найти сумму этих чисел. Паскаль.

Ответы 1

  • var  n,k,s,d:longint;begin  Write('Введите натуральное число: ); Readln(n);  s:=0; k:=0;  while n<>0 do begin    d:=n mod 10;    Inc(k);    s:=s+d;    n:=n div 10  end;  Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)end.Тестовое решение:Введите натуральное число: 157832Количество цифр равно 6, сумма цифр равна 26
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years