• Pascal. Сумма квадратов цифр некоторого двузначного числа на 1 больше утроенного произведения этих цифр. После деления этого двузначного числа на сумму его цифр в
    частном получается 7 и в остатке 6. Составить цикл нахождения числа, если он существует.

Ответы 3

  • Замечательный фрагмент, только с двумя недостатками: в условном выражении не хватает закрывающей скобки и если её поставить в самом конце, программа не находит решения.
  • Увидел, где ошибка. Перед then должна быть не 7, а 6)
  • for i:=1 to 9 dofor j:= 0 to 9 doif((i*i+j*j-3*i*j=1)and((i*10+j)div(i+j) = 7)and((i*10+j)mod(i+j) = 7) then write('Искомое число',i*10+j);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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