Pascal. Сумма квадратов цифр некоторого двузначного числа на 1 больше утроенного произведения этих цифр. После деления этого двузначного числа на сумму его цифр в частном получается 7 и в остатке 6. Составить цикл нахождения чи...
Pascal. Сумма квадратов цифр некоторого двузначного числа на 1 больше утроенного произведения этих цифр. После деления этого двузначного числа на сумму его цифр в
частном получается 7 и в остатке 6. Составить цикл нахождения числа, если он существует.
Гость
Ответ(ы) на вопрос:
Гостьfor i:=1 to 9 do
for j:= 0 to 9 do
if((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.
Не нашли ответ?
Похожие вопросы