Среди двузначных чисел найти те, которые делятся на число q, а сумма тех цифр равна n ( 0
Var i, q, n : integer; begin read(q, n); for i:=10 to 99 do if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then write(i, ' '); end.
спасибо большое. но мне не понятна вторая строчка. можно как нибудь проще решить эту задачу?
( 0<n<=18)
Это функция. Можно без этого. Отредактировал.
Хотя, сейчас ещё упрощу. Минуту
Всё - теперь, надеюсь, достаточно просто.
спасибо. сможете еще помочь?
Смогу.
Вычислить 1-1/2+1/3...1/9999-1/10000 последовательно слева направо вычисляются 1+1/3+...1/9999 и 1/2+1/4+...1/10000, затем второе значение вычитается из первого. Паскаль!!!