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

Ответы 2

  • Всего чисел 24;Вот они 10, 12, 18, 20, 21, 24, 27, 30, 36, 40, 42, 45, 48, 50, 54, 60, 63, 70, 72, 80, 81, 84, 90
    • Автор:

      sandoval
    • 6 лет назад
    • 0
  • procedure TForm1.СтартClick(Sender: TObject);var  i, j, k, Chislo: Integer;begin  Memo1.Clear;  k:=0;  for i := 1 to 9 do    for j := 0 to 9 do    begin      Chislo := i*10+j;      if ( Frac(Chislo/(i+j))=0 ) then      begin        inc(k);        Memo1.Lines.Append( IntToStr(Chislo));      end;    end;   Memo1.Lines.Append('Количество = ' + IntToStr(k));end;
    answer img
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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