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

nikitagregorovi nikitagregorovi    3   09.07.2019 01:50    1

Ответы
angelok8408 angelok8408  02.10.2020 23:09
Всего чисел 24;
Вот они 10, 12, 18, 20, 21, 24, 27, 30, 36, 40, 42, 45, 48, 50, 54, 60, 63, 70, 72, 80, 81, 84, 90
ПОКАЗАТЬ ОТВЕТЫ
Куликова2006 Куликова2006  02.10.2020 23:09
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;


Найдите количество двузначных чисел, которые делятся на сумму своих цифр.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика