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

Ответы 2

  • Спасибо помогло
  • Вот вариант решения:uses Crt;  var i, z1, z2, z, Col: integer;begin ClrScr; Col:=0; for i:=10 to 99 do   begin       z1:=i div 10;    z2:=i mod 10;   z:=z1+z2;     if (i mod z =0) then             begin                Col:=Col+1;          Write(i:4);         end;       end; WriteLn; WriteLn;  WriteLn('  Col = ', Col); ReadLn;end.
    answer img
  • Добавить свой ответ

Войти через Google

или

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

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

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