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

Ответы 2

  • var sum: integer; number: longint; begin sum := 0; write('Введите число: '); readln(number);
  • var  n,s:integer;begin  write('Введите число ');  readln(n);  while n<>0 do begin    s:=s+ n mod 10;    n:=n div 10;  end;  writeln('Сумма цифр в числе ',s);end.Тестовое решение:Введите число 5342Сумма цифр в числе 14
    • Автор:

      chefilyw
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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