- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 539

Сумма квадратов цифр некоторого двухзначного числа на 1 больше утроенного произведения этих цифр. После деления этого двухзначного числа на сумму его цифр в частном получится 7 и в остатке 6. Составить алгоритм поиска этого числа.
РЕШЕНИЕ:
var i,i1,i2,a,a1,a2:integer;
begin
for i:=10 to 99 do
begin i1:=i div 10; i2:=i mod 10;
if i1*i1+i2*i2-1=3*i1*i2 then begin
a1:=i div (i1+i2); a2:=i mod (i1+i2);
if (a1=7) and (a2=6) then writeln (i);
end;
end;
end.
РЕШЕНИЕ:
var i,i1,i2,a,a1,a2:integer;
begin
for i:=10 to 99 do
begin i1:=i div 10; i2:=i mod 10;
if i1*i1+i2*i2-1=3*i1*i2 then begin
a1:=i div (i1+i2); a2:=i mod (i1+i2);
if (a1=7) and (a2=6) then writeln (i);
end;
end;
end.