Определить все трехзначные числа, которые при делении на 11 дают в частном число, равное сумме квадратов цифр исходного числа.
Определить все трехзначные числа, которые при делении на 11 дают в частном число, равное сумме квадратов цифр исходного числа.
Гость
Ответ(ы) на вопрос:
Гостьvar i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
131
241
324
550
624
803
900
910
Если требуется деление на 11 без остатка, то:
var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) mod 11) = 0 then
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
550
803
Не нашли ответ?
Похожие вопросы