• 18 November 2014
    • Беларуская мова
    • Автор: Calnikov

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

    • 18 November 2014
    • Ответ оставил: selmash21

    var
    i,m,n,sum,k:Integer;
    Begin
     for i:=10 to 99 do
      begin
       m:=i mod 10;
       n:=i div 10;
       sum:=m+n;
       if (i mod sum = 0) then k:=k+1;
      end;
    Writeln(k);
     end.

    Оцени ответ
    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предметы...

Последние опубликованные вопросы