• Напишите программу, которая вводит последовательность целых чисел, заканчивающуюся нулём, и определяет, сколько из этих чисел удовлетворяет условию: сумма значений цифр десятичной записи числа равно 10.

Ответы 1

  • Var   A,S,k:longint;Begink:=0;Read(A);While A<>0 do   Begin   S:=0;   A:=Abs(A);   While A > 0 do      Begin      S:=S+A mod 10;      A:=A div 10;      End;   if S=10 then k:=k+1;   Read(A);   End;WriteLn('Искомое количество: ',k);End.
    • Автор:

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

Войти через Google

или

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

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

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